home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Tape Archive
(archive/tar).
You can browse this item here: minihelp~
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| Tape Archive (archive/tar)
| magic
| Supported |
| 100%
| file
| tar archive
| default
| |
| 99%
| file
| tar archive (V7), file MiniHelp.tcl, mode 666 , uid 207 , gid 324 , size 163351 , seconds 6127027231
| default
| |
| 98%
| file
| data
| default
| |
| 100%
| siegfried
| x-fmt/265 Tape Archive Format
| default
| |
| 100%
| lsar
| Tar
| default
| |
| 100%
| gt2
| Kopftext: 'MiniHelp.tcl'
| default (weak)
| |
| 100%
| disktype
| Pre-POSIX tar archive
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 4d 69 6e 69 48 65 6c 70 | 2e 74 63 6c 00 00 00 00 |MiniHelp|.tcl....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 20 20 20 36 | 36 36 20 00 20 20 20 32 |.... 6|66 . 2|
|00000070| 30 37 20 00 20 20 20 33 | 32 34 20 00 20 20 20 20 |07 . 3|24 . |
|00000080| 20 31 36 33 33 35 31 20 | 20 36 31 32 37 30 32 37 | 163351 | 6127027|
|00000090| 32 33 31 20 20 20 36 34 | 31 35 00 20 00 00 00 00 |231 64|15. ....|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000210| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000220| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000230| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 0d |########|#######.|
|00000240| 0a 23 20 4d 69 6e 69 68 | 65 6c 70 20 2d 20 48 65 |.# Minih|elp - He|
|00000250| 6c 70 20 45 64 69 74 6f | 72 0d 0a 23 20 43 68 61 |lp Edito|r..# Cha|
|00000260| 72 6c 69 65 20 4b 45 4d | 50 53 4f 4e 20 2d 20 63 |rlie KEM|PSON - c|
|00000270| 68 61 72 6c 69 65 40 73 | 69 72 65 6e 2e 64 65 6d |harlie@s|iren.dem|
|00000280| 6f 6e 2e 63 6f 2e 75 6b | 0d 0a 23 20 68 74 74 70 |on.co.uk|..# http|
|00000290| 3a 2f 2f 70 75 62 6c 69 | 63 2e 6c 6f 67 69 63 61 |://publi|c.logica|
|000002a0| 2e 63 6f 6d 2f 7e 6b 65 | 6d 70 73 6f 6e 63 0d 0a |.com/~ke|mpsonc..|
|000002b0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000002c0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000002d0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000002e0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 0d |########|#######.|
|000002f0| 0a 0d 0a 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |...#####|########|
|00000300| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000310| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000320| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000330| 23 23 0d 0a 23 20 20 20 | 20 54 68 69 73 20 70 72 |##..# | This pr|
|00000340| 6f 67 72 61 6d 20 69 73 | 20 66 72 65 65 20 73 6f |ogram is| free so|
|00000350| 66 74 77 61 72 65 3b 20 | 79 6f 75 20 63 61 6e 20 |ftware; |you can |
|00000360| 72 65 64 69 73 74 72 69 | 62 75 74 65 20 69 74 20 |redistri|bute it |
|00000370| 0d 0a 23 20 20 20 20 61 | 6e 64 2f 6f 72 20 6d 6f |..# a|nd/or mo|
|00000380| 64 69 66 79 20 69 74 20 | 75 6e 64 65 72 20 74 68 |dify it |under th|
|00000390| 65 20 74 65 72 6d 73 20 | 6f 66 20 74 68 65 20 47 |e terms |of the G|
|000003a0| 4e 55 20 47 65 6e 65 72 | 61 6c 20 0d 0a 23 20 20 |NU Gener|al ..# |
|000003b0| 20 20 50 75 62 6c 69 63 | 20 4c 69 63 65 6e 73 65 | Public| License|
|000003c0| 20 61 73 20 70 75 62 6c | 69 73 68 65 64 20 62 79 | as publ|ished by|
|000003d0| 20 74 68 65 20 46 72 65 | 65 20 53 6f 66 74 77 61 | the Fre|e Softwa|
|000003e0| 72 65 20 0d 0a 23 20 20 | 20 20 46 6f 75 6e 64 61 |re ..# | Founda|
|000003f0| 74 69 6f 6e 20 28 76 65 | 72 73 69 6f 6e 20 32 20 |tion (ve|rsion 2 |
|00000400| 6f 66 20 74 68 65 20 4c | 69 63 65 6e 73 65 29 2e |of the L|icense).|
|00000410| 0d 0a 23 0d 0a 23 20 20 | 20 20 54 68 69 73 20 70 |..#..# | This p|
|00000420| 72 6f 67 72 61 6d 20 69 | 73 20 64 69 73 74 72 69 |rogram i|s distri|
|00000430| 62 75 74 65 64 20 69 6e | 20 74 68 65 20 68 6f 70 |buted in| the hop|
|00000440| 65 20 74 68 61 74 20 69 | 74 20 77 69 6c 6c 20 0d |e that i|t will .|
|00000450| 0a 23 20 20 20 20 62 65 | 20 75 73 65 66 75 6c 2c |.# be| useful,|
|00000460| 20 62 75 74 20 57 49 54 | 48 4f 55 54 20 41 4e 59 | but WIT|HOUT ANY|
|00000470| 20 57 41 52 52 41 4e 54 | 59 3b 20 77 69 74 68 6f | WARRANT|Y; witho|
|00000480| 75 74 20 65 76 65 6e 20 | 74 68 65 20 0d 0a 23 20 |ut even |the ..# |
|00000490| 20 20 20 69 6d 70 6c 69 | 65 64 20 77 61 72 72 61 | impli|ed warra|
|000004a0| 6e 74 79 20 6f 66 20 4d | 45 52 43 48 41 4e 54 41 |nty of M|ERCHANTA|
|000004b0| 42 49 4c 49 54 59 20 6f | 72 20 46 49 54 4e 45 53 |BILITY o|r FITNES|
|000004c0| 53 20 46 4f 52 20 41 20 | 0d 0a 23 20 20 20 20 50 |S FOR A |..# P|
|000004d0| 41 52 54 49 43 55 4c 41 | 52 20 50 55 52 50 4f 53 |ARTICULA|R PURPOS|
|000004e0| 45 2e 20 20 53 65 65 20 | 74 68 65 20 47 4e 55 20 |E. See |the GNU |
|000004f0| 47 65 6e 65 72 61 6c 20 | 50 75 62 6c 69 63 20 4c |General |Public L|
|00000500| 69 63 65 6e 73 65 20 0d | 0a 23 20 20 20 20 66 6f |icense .|.# fo|
|00000510| 72 20 6d 6f 72 65 20 64 | 65 74 61 69 6c 73 2e 0d |r more d|etails..|
|00000520| 0a 23 0d 0a 23 20 20 20 | 20 46 6f 72 20 61 20 63 |.#..# | For a c|
|00000530| 6f 70 79 20 6f 66 20 74 | 68 65 20 47 4e 55 20 47 |opy of t|he GNU G|
|00000540| 65 6e 65 72 61 6c 20 50 | 75 62 6c 69 63 20 4c 69 |eneral P|ublic Li|
|00000550| 63 65 6e 73 65 2c 20 77 | 72 69 74 65 20 74 6f 20 |cense, w|rite to |
|00000560| 74 68 65 20 0d 0a 23 20 | 20 20 20 46 72 65 65 20 |the ..# | Free |
|00000570| 53 6f 66 74 77 61 72 65 | 20 46 6f 75 6e 64 61 74 |Software| Foundat|
|00000580| 69 6f 6e 2c 20 49 6e 63 | 2e 2c 20 36 37 35 20 4d |ion, Inc|., 675 M|
|00000590| 61 73 73 20 41 76 65 2c | 20 43 61 6d 62 72 69 64 |ass Ave,| Cambrid|
|000005a0| 67 65 2c 20 0d 0a 23 20 | 20 20 20 4d 41 20 30 32 |ge, ..# | MA 02|
|000005b0| 31 33 39 2c 20 55 53 41 | 2e 0d 0a 23 23 23 23 23 |139, USA|...#####|
|000005c0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000005d0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000005e0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000005f0| 23 23 23 23 23 23 23 23 | 23 23 0d 0a 0d 0a 23 23 |########|##....##|
|00000600| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000610| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000620| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000630| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 0d 0a 23 |########|#####..#|
|00000640| 20 53 65 74 20 69 6e 63 | 6c 75 64 65 20 70 61 74 | Set inc|lude pat|
|00000650| 68 0d 0a 73 65 74 20 47 | 4c 4f 42 41 4c 5f 49 4e |h..set G|LOBAL_IN|
|00000660| 43 4c 55 44 45 20 22 2f | 75 73 72 2f 6c 6f 63 61 |CLUDE "/|usr/loca|
|00000670| 6c 2f 6c 69 62 2f 54 6b | 4e 65 74 22 0d 0a 23 73 |l/lib/Tk|Net"..#s|
|00000680| 65 74 20 47 4c 4f 42 41 | 4c 5f 49 4e 43 4c 55 44 |et GLOBA|L_INCLUD|
|00000690| 45 20 22 2f 68 6f 6d 65 | 2f 63 68 61 72 6c 69 65 |E "/home|/charlie|
|000006a0| 2f 54 4b 4e 45 54 2f 75 | 73 72 2f 6c 6f 63 61 6c |/TKNET/u|sr/local|
|000006b0| 2f 6c 69 62 2f 54 6b 4e | 65 74 22 0d 0a 0d 0a 23 |/lib/TkN|et"....#|
|000006c0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000006d0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000006e0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000006f0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 0d 0a |########|######..|
|00000700| 23 20 47 6c 6f 62 61 6c | 73 20 66 6f 72 20 74 68 |# Global|s for th|
|00000710| 69 73 20 6d 6f 64 75 6c | 65 0d 0a 73 65 74 20 42 |is modul|e..set B|
|00000720| 49 54 4d 41 50 5f 48 45 | 49 47 48 54 20 20 20 20 |ITMAP_HE|IGHT |
|00000730| 20 20 20 36 30 0d 0a 73 | 65 74 20 42 49 54 4d 41 | 60..s|et BITMA|
|00000740| 50 5f 57 49 44 54 48 20 | 20 20 20 20 20 20 20 34 |P_WIDTH | 4|
|00000750| 30 0d 0a 0d 0a 23 20 47 | 6c 6f 62 61 6c 73 0d 0a |0....# G|lobals..|
|00000760| 73 65 74 20 67 5f 73 65 | 6c 65 63 74 65 64 5f 66 |set g_se|lected_f|
|00000770| 69 6c 65 20 22 22 0d 0a | 73 65 74 20 67 5f 73 65 |ile ""..|set g_se|
|00000780| 6c 65 63 74 65 64 5f 66 | 69 6c 65 5f 66 69 6c 74 |lected_f|ile_filt|
|00000790| 65 72 20 22 22 0d 0a 0d | 0a 23 20 46 6c 61 67 73 |er ""...|.# Flags|
|000007a0| 0d 0a 73 65 74 20 67 61 | 73 5f 70 61 67 65 73 20 |..set ga|s_pages |
|000007b0| 22 22 0d 0a 73 65 74 20 | 67 61 73 5f 68 69 73 74 |""..set |gas_hist|
|000007c0| 6f 72 79 20 22 22 0d 0a | 73 65 74 20 67 62 5f 63 |ory ""..|set gb_c|
|000007d0| 75 72 72 65 6e 74 5f 70 | 61 67 65 5f 63 68 61 6e |urrent_p|age_chan|
|000007e0| 67 65 64 20 30 0d 0a 73 | 65 74 20 67 62 5f 70 72 |ged 0..s|et gb_pr|
|000007f0| 6f 6a 65 63 74 5f 63 68 | 61 6e 67 65 64 20 20 20 |oject_ch|anged |
|00000800| 20 20 20 30 0d 0a 73 65 | 74 20 67 73 5f 63 75 72 | 0..se|t gs_cur|
|00000810| 72 65 6e 74 5f 70 72 6f | 6a 65 63 74 20 20 20 20 |rent_pro|ject |
|00000820| 20 20 22 22 0d 0a 73 65 | 74 20 67 73 5f 6e 65 77 | ""..se|t gs_new|
|00000830| 5f 70 72 6f 6a 65 63 74 | 5f 6e 61 6d 65 20 20 20 |_project|_name |
|00000840| 20 20 22 22 0d 0a 73 65 | 74 20 67 73 5f 4d 48 5f | ""..se|t gs_MH_|
|00000850| 4e 65 77 48 65 6c 70 50 | 61 67 65 20 20 20 20 20 |NewHelpP|age |
|00000860| 20 20 20 22 22 0d 0a 73 | 65 74 20 67 73 5f 63 75 | ""..s|et gs_cu|
|00000870| 74 5f 62 75 66 66 65 72 | 20 20 20 20 20 20 20 20 |t_buffer| |
|00000880| 20 20 20 22 22 0d 0a 73 | 65 74 20 67 62 5f 73 68 | ""..s|et gb_sh|
|00000890| 6f 77 5f 66 6f 72 6d 61 | 74 74 65 64 20 20 20 20 |ow_forma|tted |
|000008a0| 20 20 20 31 0d 0a 73 65 | 74 20 67 62 5f 6b 65 65 | 1..se|t gb_kee|
|000008b0| 70 5f 6f 6c 64 5f 74 65 | 78 74 20 20 20 20 20 20 |p_old_te|xt |
|000008c0| 20 20 30 0d 0a 73 65 74 | 20 67 62 5f 70 61 67 65 | 0..set| gb_page|
|000008d0| 5f 61 75 74 6f 63 6f 6d | 6d 69 74 20 20 20 20 20 |_autocom|mit |
|000008e0| 20 31 0d 0a 0d 0a 23 20 | 47 65 6f 6d 65 74 72 79 | 1....# |Geometry|
|000008f0| 0d 0a 73 65 74 20 54 4b | 4e 45 54 5f 48 45 4c 50 |..set TK|NET_HELP|
|00000900| 5f 47 45 4f 4d 45 54 52 | 59 20 22 2b 32 30 30 2b |_GEOMETR|Y "+200+|
|00000910| 32 30 30 22 0d 0a 73 65 | 74 20 46 49 58 45 44 5f |200"..se|t FIXED_|
|00000920| 46 4f 4e 54 5f 53 4d 41 | 4c 4c 20 20 20 2d 2a 2d |FONT_SMA|LL -*-|
|00000930| 63 6f 75 72 69 65 72 2d | 6d 65 64 69 75 6d 2d 72 |courier-|medium-r|
|00000940| 2d 2a 2d 2a 2d 2a 2d 2a | 2d 2a 2d 2a 2d 2a 2d 2a |-*-*-*-*|-*-*-*-*|
|00000950| 2d 2a 2d 2a 0d 0a 73 65 | 74 20 46 49 58 45 44 5f |-*-*..se|t FIXED_|
|00000960| 46 4f 4e 54 20 20 20 20 | 20 20 20 20 20 20 2d 2a |FONT | -*|
|00000970| 2d 63 6f 75 72 69 65 72 | 2d 6d 65 64 69 75 6d 2d |-courier|-medium-|
|00000980| 72 2d 2a 2d 2a 2d 31 34 | 2d 2a 2d 2a 2d 2a 2d 2a |r-*-*-14|-*-*-*-*|
|00000990| 2d 2a 2d 2a 2d 2a 0d 0a | 73 65 74 20 46 4f 4e 54 |-*-*-*..|set FONT|
|000009a0| 5f 53 4d 41 4c 4c 20 20 | 20 20 20 20 20 20 20 20 |_SMALL | |
|000009b0| 2d 61 64 6f 62 65 2d 68 | 65 6c 76 65 74 69 63 61 |-adobe-h|elvetica|
|000009c0| 2d 6d 65 64 69 75 6d 2d | 72 2d 2a 2d 2a 2d 2a 2d |-medium-|r-*-*-*-|
|000009d0| 2a 2d 2a 2d 2a 2d 2a 2d | 2a 2d 2a 2d 2a 0d 0a 73 |*-*-*-*-|*-*-*..s|
|000009e0| 65 74 20 46 4f 4e 54 5f | 4e 4f 52 4d 41 4c 20 20 |et FONT_|NORMAL |
|000009f0| 20 20 20 20 20 20 20 2d | 61 64 6f 62 65 2d 68 65 | -|adobe-he|
|00000a00| 6c 76 65 74 69 63 61 2d | 6d 65 64 69 75 6d 2d 72 |lvetica-|medium-r|
|00000a10| 2d 2a 2d 2a 2d 31 34 2d | 2a 2d 2a 2d 2a 2d 2a 2d |-*-*-14-|*-*-*-*-|
|00000a20| 2a 2d 2a 2d 2a 0d 0a 73 | 65 74 20 46 4f 4e 54 5f |*-*-*..s|et FONT_|
|00000a30| 49 54 41 4c 49 43 20 20 | 20 20 20 20 20 20 20 2d |ITALIC | -|
|00000a40| 61 64 6f 62 65 2d 68 65 | 6c 76 65 74 69 63 61 2d |adobe-he|lvetica-|
|00000a50| 6d 65 64 69 75 6d 2d 6f | 2d 2a 2d 2a 2d 31 34 2d |medium-o|-*-*-14-|
|00000a60| 2a 2d 2a 2d 2a 2d 2a 2d | 2a 2d 2a 2d 2a 0d 0a 73 |*-*-*-*-|*-*-*..s|
|00000a70| 65 74 20 46 4f 4e 54 5f | 42 4f 4c 44 20 20 20 20 |et FONT_|BOLD |
|00000a80| 20 20 20 20 20 20 20 2d | 61 64 6f 62 65 2d 68 65 | -|adobe-he|
|00000a90| 6c 76 65 74 69 63 61 2d | 62 6f 6c 64 2d 72 2d 2a |lvetica-|bold-r-*|
|00000aa0| 2d 2a 2d 31 34 2d 2a 2d | 2a 2d 2a 2d 2a 2d 2a 2d |-*-14-*-|*-*-*-*-|
|00000ab0| 2a 2d 2a 0d 0a 73 65 74 | 20 42 55 54 54 4f 4e 5f |*-*..set| BUTTON_|
|00000ac0| 43 4f 4c 4f 55 52 20 20 | 20 20 20 20 20 47 72 65 |COLOUR | Gre|
|00000ad0| 79 36 35 0d 0a 73 65 74 | 20 54 45 58 54 5f 43 4f |y65..set| TEXT_CO|
|00000ae0| 4c 4f 55 52 20 20 20 20 | 20 20 20 20 20 57 68 69 |LOUR | Whi|
|00000af0| 74 65 0d 0a 73 65 74 20 | 44 45 46 41 55 4c 54 5f |te..set |DEFAULT_|
|00000b00| 43 4f 4c 4f 55 52 20 20 | 20 20 20 20 47 72 65 79 |COLOUR | Grey|
|00000b10| 37 35 0d 0a 73 65 74 20 | 52 45 44 20 20 20 20 20 |75..set |RED |
|00000b20| 20 20 20 20 20 20 20 20 | 20 20 20 20 52 65 64 0d | | Red.|
|00000b30| 0a 73 65 74 20 47 52 45 | 45 4e 20 20 20 20 20 20 |.set GRE|EN |
|00000b40| 20 20 20 20 20 20 20 20 | 20 46 6f 72 65 73 74 47 | | ForestG|
|00000b50| 72 65 65 6e 0d 0a 73 65 | 74 20 4c 4f 57 45 52 5f |reen..se|t LOWER_|
|00000b60| 42 4f 52 44 45 52 20 20 | 20 20 20 20 20 20 33 0d |BORDER | 3.|
|00000b70| 0a 73 65 74 20 52 49 44 | 47 45 5f 42 4f 52 44 45 |.set RID|GE_BORDE|
|00000b80| 52 20 20 20 20 20 20 20 | 20 32 0d 0a 73 65 74 20 |R | 2..set |
|00000b90| 44 45 46 41 55 4c 54 5f | 50 41 44 44 49 4e 47 20 |DEFAULT_|PADDING |
|00000ba0| 20 20 20 20 35 0d 0a 0d | 0a 23 20 53 65 74 20 54 | 5...|.# Set T|
|00000bb0| 6b 2f 74 63 6c 20 67 6c | 6f 62 61 6c 20 76 61 72 |k/tcl gl|obal var|
|00000bc0| 69 61 62 6c 65 73 0d 0a | 73 65 74 20 74 6b 5f 73 |iables..|set tk_s|
|00000bd0| 74 72 69 63 74 4d 6f 74 | 69 66 20 20 20 20 20 20 |trictMot|if |
|00000be0| 31 0d 0a 73 65 74 20 74 | 63 6c 5f 70 72 65 63 69 |1..set t|cl_preci|
|00000bf0| 73 69 6f 6e 20 20 20 20 | 20 20 20 33 0d 0a 0d 0a |sion | 3....|
|00000c00| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000c10| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000c20| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000c30| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 0d |########|#######.|
|00000c40| 0a 23 20 53 65 74 20 61 | 70 70 6c 69 63 61 74 69 |.# Set a|pplicati|
|00000c50| 6f 6e 20 64 65 66 61 75 | 6c 74 73 0d 0a 0d 0a 23 |on defau|lts....#|
|00000c60| 20 46 6f 6e 74 73 0d 0a | 6f 70 74 69 6f 6e 20 61 | Fonts..|option a|
|00000c70| 64 64 20 2a 66 6f 6e 74 | 20 24 46 4f 4e 54 5f 4e |dd *font| $FONT_N|
|00000c80| 4f 52 4d 41 4c 20 73 74 | 61 72 74 75 70 46 69 6c |ORMAL st|artupFil|
|00000c90| 65 0d 0a 0d 0a 23 20 48 | 69 67 68 6c 69 67 68 74 |e....# H|ighlight|
|00000ca0| 0d 0a 6f 70 74 69 6f 6e | 20 61 64 64 20 2a 68 69 |..option| add *hi|
|00000cb0| 67 68 6c 69 67 68 74 54 | 68 69 63 6b 6e 65 73 73 |ghlightT|hickness|
|00000cc0| 20 30 0d 0a 0d 0a 23 20 | 43 6f 6c 6f 75 72 73 0d | 0....# |Colours.|
|00000cd0| 0a 6f 70 74 69 6f 6e 20 | 61 64 64 20 2a 62 61 63 |.option |add *bac|
|00000ce0| 6b 67 72 6f 75 6e 64 20 | 20 24 44 45 46 41 55 4c |kground | $DEFAUL|
|00000cf0| 54 5f 43 4f 4c 4f 55 52 | 20 73 74 61 72 74 75 70 |T_COLOUR| startup|
|00000d00| 46 69 6c 65 0d 0a 6f 70 | 74 69 6f 6e 20 61 64 64 |File..op|tion add|
|00000d10| 20 2a 54 65 78 74 2e 62 | 61 63 6b 67 72 6f 75 6e | *Text.b|ackgroun|
|00000d20| 64 20 20 24 54 45 58 54 | 5f 43 4f 4c 4f 55 52 20 |d $TEXT|_COLOUR |
|00000d30| 73 74 61 72 74 75 70 46 | 69 6c 65 0d 0a 6f 70 74 |startupF|ile..opt|
|00000d40| 69 6f 6e 20 61 64 64 20 | 2a 45 6e 74 72 79 2e 62 |ion add |*Entry.b|
|00000d50| 61 63 6b 67 72 6f 75 6e | 64 20 20 24 54 45 58 54 |ackgroun|d $TEXT|
|00000d60| 5f 43 4f 4c 4f 55 52 20 | 73 74 61 72 74 75 70 46 |_COLOUR |startupF|
|00000d70| 69 6c 65 0d 0a 0d 0a 23 | 23 23 23 23 23 23 23 23 |ile....#|########|
|00000d80| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000d90| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000da0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000db0| 23 23 23 23 23 23 0d 0a | 23 20 54 68 65 20 70 72 |######..|# The pr|
|00000dc0| 6f 63 65 64 75 72 65 20 | 74 6f 20 72 65 61 64 20 |ocedure |to read |
|00000dd0| 6f 74 68 65 72 20 74 63 | 6c 20 66 69 6c 65 73 20 |other tc|l files |
|00000de0| 73 74 6f 72 65 64 20 69 | 6e 0d 0a 23 20 2f 75 73 |stored i|n..# /us|
|00000df0| 72 2f 6c 6f 63 61 6c 2f | 6c 69 62 2f 54 6b 4e 65 |r/local/|lib/TkNe|
|00000e00| 74 2f 6d 6f 64 75 6c 65 | 73 0d 0a 70 72 6f 63 20 |t/module|s..proc |
|00000e10| 4d 48 5f 53 6f 75 72 63 | 65 4f 74 68 65 72 20 7b |MH_Sourc|eOther {|
|00000e20| 20 66 69 6c 65 6e 61 6d | 65 20 7d 20 7b 0d 0a 0d | filenam|e } {...|
|00000e30| 0a 20 20 20 23 20 47 6c | 6f 62 61 6c 73 0d 0a 20 |. # Gl|obals.. |
|00000e40| 20 20 67 6c 6f 62 61 6c | 20 47 4c 4f 42 41 4c 5f | global| GLOBAL_|
|00000e50| 49 4e 43 4c 55 44 45 0d | 0a 0d 0a 20 20 20 23 20 |INCLUDE.|... # |
|00000e60| 4c 6f 6f 6b 20 69 6e 20 | 74 68 65 20 67 6c 6f 62 |Look in |the glob|
|00000e70| 61 6c 20 61 72 65 61 20 | 66 6f 72 20 66 69 6c 65 |al area |for file|
|00000e80| 73 0d 0a 20 20 20 69 66 | 20 5b 66 69 6c 65 20 65 |s.. if| [file e|
|00000e90| 78 69 73 74 73 20 22 24 | 47 4c 4f 42 41 4c 5f 49 |xists "$|GLOBAL_I|
|00000ea0| 4e 43 4c 55 44 45 2f 6d | 6f 64 75 6c 65 73 2f 24 |NCLUDE/m|odules/$|
|00000eb0| 66 69 6c 65 6e 61 6d 65 | 22 5d 20 7b 0d 0a 20 20 |filename|"] {.. |
|00000ec0| 20 20 20 20 69 66 20 5b | 63 61 74 63 68 20 7b 75 | if [|catch {u|
|00000ed0| 70 6c 65 76 65 6c 20 23 | 30 20 73 6f 75 72 63 65 |plevel #|0 source|
|00000ee0| 20 22 24 47 4c 4f 42 41 | 4c 5f 49 4e 43 4c 55 44 | "$GLOBA|L_INCLUD|
|00000ef0| 45 2f 6d 6f 64 75 6c 65 | 73 2f 24 66 69 6c 65 6e |E/module|s/$filen|
|00000f00| 61 6d 65 22 7d 5d 20 7b | 0d 0a 20 20 20 20 20 20 |ame"}] {|.. |
|00000f10| 20 20 20 4d 48 5f 49 6e | 66 6f 44 69 61 6c 6f 67 | MH_In|foDialog|
|00000f20| 20 2e 20 22 45 72 72 6f | 72 20 72 65 61 64 69 6e | . "Erro|r readin|
|00000f30| 67 20 66 69 6c 65 20 3a | 20 74 68 69 73 20 64 6f |g file :| this do|
|00000f40| 65 73 6e 27 74 20 6c 6f | 6f 6b 20 6c 69 6b 65 20 |esn't lo|ok like |
|00000f50| 61 20 54 63 6c 20 61 72 | 63 68 69 76 65 22 0d 0a |a Tcl ar|chive"..|
|00000f60| 20 20 20 20 20 20 7d 0d | 0a 20 20 20 7d 20 65 6c | }.|. } el|
|00000f70| 73 65 20 7b 0d 0a 20 20 | 20 20 20 20 23 20 46 49 |se {.. | # FI|
|00000f80| 4c 45 20 4d 49 53 53 49 | 4e 47 20 46 52 4f 4d 20 |LE MISSI|NG FROM |
|00000f90| 2f 75 73 72 2f 6c 6f 63 | 61 6c 2f 6c 69 62 2f 54 |/usr/loc|al/lib/T|
|00000fa0| 6b 4e 65 74 2f 6d 6f 64 | 75 6c 65 73 0d 0a 20 20 |kNet/mod|ules.. |
|00000fb0| 20 20 20 20 4d 48 5f 49 | 6e 66 6f 44 69 61 6c 6f | MH_I|nfoDialo|
|00000fc0| 67 20 2e 20 22 46 69 6c | 65 20 24 66 69 6c 65 6e |g . "Fil|e $filen|
|00000fd0| 61 6d 65 20 6d 69 73 73 | 69 6e 67 20 66 72 6f 6d |ame miss|ing from|
|00000fe0| 20 24 47 4c 4f 42 41 4c | 5f 49 4e 43 4c 55 44 45 | $GLOBAL|_INCLUDE|
|00000ff0| 2f 6d 6f 64 75 6c 65 73 | 2e 22 0d 0a 20 20 20 7d |/modules|.".. }|
|00001000| 0d 0a 7d 0d 0a 0d 0a 23 | 23 23 23 23 23 23 23 23 |..}....#|########|
|00001010| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001020| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001030| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001040| 23 23 23 23 23 23 0d 0a | 23 20 44 69 73 70 6c 61 |######..|# Displa|
|00001050| 79 20 61 20 62 6c 6f 63 | 6b 69 6e 67 20 69 6e 66 |y a bloc|king inf|
|00001060| 6f 72 6d 61 74 69 6f 6e | 20 64 69 61 6c 6f 67 0d |ormation| dialog.|
|00001070| 0a 70 72 6f 63 20 4d 48 | 5f 49 6e 66 6f 44 69 61 |.proc MH|_InfoDia|
|00001080| 6c 6f 67 20 7b 20 70 61 | 72 65 6e 74 20 73 74 72 |log { pa|rent str|
|00001090| 69 6e 67 20 7d 20 7b 0d | 0a 0d 0a 20 20 20 23 20 |ing } {.|... # |
|000010a0| 47 6c 6f 62 61 6c 73 0d | 0a 20 20 20 67 6c 6f 62 |Globals.|. glob|
|000010b0| 61 6c 20 46 4f 4e 54 5f | 4e 4f 52 4d 41 4c 20 52 |al FONT_|NORMAL R|
|000010c0| 49 44 47 45 5f 42 4f 52 | 44 45 52 20 44 45 46 41 |IDGE_BOR|DER DEFA|
|000010d0| 55 4c 54 5f 50 41 44 44 | 49 4e 47 20 5c 0d 0a 20 |ULT_PADD|ING \.. |
|000010e0| 20 20 20 20 20 42 49 54 | 4d 41 50 5f 48 45 49 47 | BIT|MAP_HEIG|
|000010f0| 48 54 20 42 49 54 4d 41 | 50 5f 57 49 44 54 48 0d |HT BITMA|P_WIDTH.|
|00001100| 0a 0d 0a 20 20 20 23 20 | 44 69 73 70 6c 61 79 20 |... # |Display |
|00001110| 74 68 65 20 73 74 72 69 | 6e 67 20 74 6f 20 74 68 |the stri|ng to th|
|00001120| 65 20 75 73 65 72 0d 0a | 20 20 20 69 66 20 5b 77 |e user..| if [w|
|00001130| 69 6e 66 6f 20 65 78 69 | 73 74 73 20 2e 64 69 61 |info exi|sts .dia|
|00001140| 6c 6f 67 5d 20 72 65 74 | 75 72 6e 0d 0a 20 20 20 |log] ret|urn.. |
|00001150| 74 6f 70 6c 65 76 65 6c | 20 2e 64 69 61 6c 6f 67 |toplevel| .dialog|
|00001160| 0d 0a 20 20 20 77 6d 20 | 74 69 74 6c 65 20 2e 64 |.. wm |title .d|
|00001170| 69 61 6c 6f 67 20 5b 77 | 6d 20 74 69 74 6c 65 20 |ialog [w|m title |
|00001180| 24 70 61 72 65 6e 74 5d | 0d 0a 20 20 20 77 6d 20 |$parent]|.. wm |
|00001190| 74 72 61 6e 73 69 65 6e | 74 20 2e 64 69 61 6c 6f |transien|t .dialo|
|000011a0| 67 20 2e 0d 0a 23 20 20 | 20 77 6d 20 72 65 73 69 |g ...# | wm resi|
|000011b0| 7a 61 62 6c 65 20 2e 64 | 69 61 6c 6f 67 20 30 20 |zable .d|ialog 0 |
|000011c0| 30 20 0d 0a 20 20 20 67 | 72 61 62 20 63 75 72 72 |0 .. g|rab curr|
|000011d0| 65 6e 74 20 2e 64 69 61 | 6c 6f 67 0d 0a 0d 0a 20 |ent .dia|log.... |
|000011e0| 20 20 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 | ######|########|
|000011f0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001200| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001210| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001220| 23 0d 0a 20 20 20 23 20 | 43 72 65 61 74 65 20 74 |#.. # |Create t|
|00001230| 68 65 20 6d 65 73 73 61 | 67 65 0d 0a 20 20 20 66 |he messa|ge.. f|
|00001240| 72 61 6d 65 20 2e 64 69 | 61 6c 6f 67 2e 66 72 20 |rame .di|alog.fr |
|00001250| 2d 62 6f 72 64 65 72 77 | 69 64 74 68 20 24 52 49 |-borderw|idth $RI|
|00001260| 44 47 45 5f 42 4f 52 44 | 45 52 20 2d 72 65 6c 69 |DGE_BORD|ER -reli|
|00001270| 65 66 20 67 72 6f 6f 76 | 65 0d 0a 20 20 20 70 61 |ef groov|e.. pa|
|00001280| 63 6b 20 2e 64 69 61 6c | 6f 67 2e 66 72 20 2d 70 |ck .dial|og.fr -p|
|00001290| 61 64 78 20 24 44 45 46 | 41 55 4c 54 5f 50 41 44 |adx $DEF|AULT_PAD|
|000012a0| 44 49 4e 47 20 2d 70 61 | 64 79 20 5c 0d 0a 20 20 |DING -pa|dy \.. |
|000012b0| 20 20 20 20 24 44 45 46 | 41 55 4c 54 5f 50 41 44 | $DEF|AULT_PAD|
|000012c0| 44 49 4e 47 20 2d 73 69 | 64 65 20 74 6f 70 20 2d |DING -si|de top -|
|000012d0| 65 78 70 61 6e 64 20 74 | 72 75 65 20 2d 66 69 6c |expand t|rue -fil|
|000012e0| 6c 20 62 6f 74 68 0d 0a | 20 20 20 6c 61 62 65 6c |l both..| label|
|000012f0| 20 2e 64 69 61 6c 6f 67 | 2e 66 72 2e 62 69 74 6d | .dialog|.fr.bitm|
|00001300| 61 70 20 2d 62 69 74 6d | 61 70 20 69 6e 66 6f 20 |ap -bitm|ap info |
|00001310| 2d 68 65 69 67 68 74 20 | 5c 0d 0a 20 20 20 20 20 |-height |\.. |
|00001320| 20 24 42 49 54 4d 41 50 | 5f 48 45 49 47 48 54 20 | $BITMAP|_HEIGHT |
|00001330| 2d 77 69 64 74 68 20 24 | 42 49 54 4d 41 50 5f 57 |-width $|BITMAP_W|
|00001340| 49 44 54 48 0d 0a 20 20 | 20 6c 61 62 65 6c 20 2e |IDTH.. | label .|
|00001350| 64 69 61 6c 6f 67 2e 66 | 72 2e 6d 65 73 73 61 67 |dialog.f|r.messag|
|00001360| 65 20 2d 74 65 78 74 20 | 24 73 74 72 69 6e 67 20 |e -text |$string |
|00001370| 2d 6a 75 73 74 69 66 79 | 20 6c 65 66 74 0d 0a 20 |-justify| left.. |
|00001380| 20 20 70 61 63 6b 20 2e | 64 69 61 6c 6f 67 2e 66 | pack .|dialog.f|
|00001390| 72 2e 62 69 74 6d 61 70 | 20 2e 64 69 61 6c 6f 67 |r.bitmap| .dialog|
|000013a0| 2e 66 72 2e 6d 65 73 73 | 61 67 65 20 2d 73 69 64 |.fr.mess|age -sid|
|000013b0| 65 20 6c 65 66 74 20 5c | 0d 0a 20 20 20 20 20 20 |e left \|.. |
|000013c0| 2d 61 6e 63 68 6f 72 20 | 77 0d 0a 0d 0a 20 20 20 |-anchor |w.... |
|000013d0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000013e0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000013f0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001400| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 0d |########|#######.|
|00001410| 0a 20 20 20 23 20 43 72 | 65 61 74 65 20 74 68 65 |. # Cr|eate the|
|00001420| 20 62 75 74 74 6f 6e 73 | 20 62 65 6c 6f 77 20 74 | buttons| below t|
|00001430| 68 65 20 66 72 61 6d 65 | 0d 0a 20 20 20 66 72 61 |he frame|.. fra|
|00001440| 6d 65 20 2e 64 69 61 6c | 6f 67 2e 62 75 74 74 6f |me .dial|og.butto|
|00001450| 6e 5f 66 72 61 6d 65 20 | 2d 62 6f 72 64 65 72 77 |n_frame |-borderw|
|00001460| 69 64 74 68 20 24 44 45 | 46 41 55 4c 54 5f 50 41 |idth $DE|FAULT_PA|
|00001470| 44 44 49 4e 47 0d 0a 20 | 20 20 70 61 63 6b 20 2e |DDING.. | pack .|
|00001480| 64 69 61 6c 6f 67 2e 62 | 75 74 74 6f 6e 5f 66 72 |dialog.b|utton_fr|
|00001490| 61 6d 65 20 2d 73 69 64 | 65 20 62 6f 74 74 6f 6d |ame -sid|e bottom|
|000014a0| 20 2d 66 69 6c 6c 20 78 | 0d 0a 20 20 20 62 75 74 | -fill x|.. but|
|000014b0| 74 6f 6e 20 2e 64 69 61 | 6c 6f 67 2e 62 75 74 74 |ton .dia|log.butt|
|000014c0| 6f 6e 5f 66 72 61 6d 65 | 2e 64 69 73 6d 69 73 73 |on_frame|.dismiss|
|000014d0| 20 5c 0d 0a 20 20 20 20 | 20 20 20 2d 74 65 78 74 | \.. | -text|
|000014e0| 20 44 69 73 6d 69 73 73 | 20 2d 63 6f 6d 6d 61 6e | Dismiss| -comman|
|000014f0| 64 20 7b 20 64 65 73 74 | 72 6f 79 20 2e 64 69 61 |d { dest|roy .dia|
|00001500| 6c 6f 67 20 7d 0d 0a 20 | 20 20 70 61 63 6b 20 2e |log }.. | pack .|
|00001510| 64 69 61 6c 6f 67 2e 62 | 75 74 74 6f 6e 5f 66 72 |dialog.b|utton_fr|
|00001520| 61 6d 65 2e 64 69 73 6d | 69 73 73 0d 0a 0d 0a 20 |ame.dism|iss.... |
|00001530| 20 20 0d 0a 20 20 20 23 | 23 23 23 23 23 23 23 23 | .. #|########|
|00001540| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001550| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001560| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001570| 23 23 23 23 23 23 0d 0a | 20 20 20 23 20 42 69 6e |######..| # Bin|
|00001580| 64 20 72 65 74 75 72 6e | 20 61 6e 64 20 73 70 61 |d return| and spa|
|00001590| 63 65 20 74 6f 20 64 69 | 73 6d 69 73 73 0d 0a 20 |ce to di|smiss.. |
|000015a0| 20 20 62 69 6e 64 20 2e | 64 69 61 6c 6f 67 20 3c | bind .|dialog <|
|000015b0| 52 65 74 75 72 6e 3e 20 | 7b 64 65 73 74 72 6f 79 |Return> |{destroy|
|000015c0| 20 2e 64 69 61 6c 6f 67 | 7d 0d 0a 20 20 20 62 69 | .dialog|}.. bi|
|000015d0| 6e 64 20 2e 64 69 61 6c | 6f 67 20 3c 73 70 61 63 |nd .dial|og <spac|
|000015e0| 65 3e 20 7b 64 65 73 74 | 72 6f 79 20 2e 64 69 61 |e> {dest|roy .dia|
|000015f0| 6c 6f 67 7d 0d 0a 0d 0a | 20 20 20 23 23 23 23 23 |log}....| #####|
|00001600| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001610| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001620| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001630| 23 23 23 23 23 23 23 23 | 23 23 0d 0a 20 20 20 23 |########|##.. #|
|00001640| 20 43 65 6e 74 72 65 20 | 74 68 65 20 64 69 61 6c | Centre |the dial|
|00001650| 6f 67 20 6f 6e 20 74 68 | 65 20 70 61 72 65 6e 74 |og on th|e parent|
|00001660| 20 28 77 61 73 20 77 69 | 64 67 65 74 20 24 70 61 | (was wi|dget $pa|
|00001670| 72 65 6e 74 29 0d 0a 20 | 20 20 4d 48 5f 43 65 6e |rent).. | MH_Cen|
|00001680| 74 72 65 44 69 61 6c 6f | 67 20 2e 64 69 61 6c 6f |treDialo|g .dialo|
|00001690| 67 0d 0a 0d 0a 20 20 20 | 23 23 23 23 23 23 23 23 |g.... |########|
|000016a0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000016b0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000016c0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000016d0| 23 23 23 23 23 23 23 0d | 0a 20 20 20 23 20 57 61 |#######.|. # Wa|
|000016e0| 69 74 20 66 6f 72 20 74 | 68 65 20 62 75 74 74 6f |it for t|he butto|
|000016f0| 6e 20 74 6f 20 62 65 20 | 70 72 65 73 73 65 64 0d |n to be |pressed.|
|00001700| 0a 20 20 20 74 6b 77 61 | 69 74 20 77 69 6e 64 6f |. tkwa|it windo|
|00001710| 77 20 2e 64 69 61 6c 6f | 67 0d 0a 7d 0d 0a 0d 0a |w .dialo|g..}....|
|00001720| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001730| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001740| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001750| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 0d |########|#######.|
|00001760| 0a 23 20 44 69 73 70 6c | 61 79 20 61 20 62 6c 6f |.# Displ|ay a blo|
|00001770| 63 6b 69 6e 67 20 71 75 | 65 73 74 69 6f 6e 20 64 |cking qu|estion d|
|00001780| 69 61 6c 6f 67 0d 0a 70 | 72 6f 63 20 4d 48 5f 51 |ialog..p|roc MH_Q|
|00001790| 75 65 73 74 69 6f 6e 44 | 69 61 6c 6f 67 20 7b 20 |uestionD|ialog { |
|000017a0| 70 61 72 65 6e 74 20 73 | 74 72 69 6e 67 20 62 75 |parent s|tring bu|
|000017b0| 74 74 6f 6e 31 20 62 75 | 74 74 6f 6e 32 20 7d 20 |tton1 bu|tton2 } |
|000017c0| 7b 0d 0a 0d 0a 20 20 20 | 23 20 47 6c 6f 62 61 6c |{.... |# Global|
|000017d0| 73 0d 0a 20 20 20 67 6c | 6f 62 61 6c 20 46 4f 4e |s.. gl|obal FON|
|000017e0| 54 5f 4e 4f 52 4d 41 4c | 20 52 49 44 47 45 5f 42 |T_NORMAL| RIDGE_B|
|000017f0| 4f 52 44 45 52 20 44 45 | 46 41 55 4c 54 5f 50 41 |ORDER DE|FAULT_PA|
|00001800| 44 44 49 4e 47 20 5c 0d | 0a 20 20 20 20 20 20 42 |DDING \.|. B|
|00001810| 49 54 4d 41 50 5f 48 45 | 49 47 48 54 20 42 49 54 |ITMAP_HE|IGHT BIT|
|00001820| 4d 41 50 5f 57 49 44 54 | 48 20 67 5f 73 74 61 74 |MAP_WIDT|H g_stat|
|00001830| 75 73 0d 0a 0d 0a 20 20 | 20 23 20 49 6e 69 74 69 |us.... | # Initi|
|00001840| 61 6c 69 73 65 20 72 65 | 74 75 72 6e 20 73 74 61 |alise re|turn sta|
|00001850| 74 75 73 0d 0a 20 20 20 | 73 65 74 20 67 5f 73 74 |tus.. |set g_st|
|00001860| 61 74 75 73 20 2d 31 0d | 0a 0d 0a 20 20 20 23 20 |atus -1.|... # |
|00001870| 44 69 73 70 6c 61 79 20 | 74 68 65 20 73 74 72 69 |Display |the stri|
|00001880| 6e 67 20 74 6f 20 74 68 | 65 20 75 73 65 72 0d 0a |ng to th|e user..|
|00001890| 20 20 20 69 66 20 5b 77 | 69 6e 66 6f 20 65 78 69 | if [w|info exi|
|000018a0| 73 74 73 20 2e 64 69 61 | 6c 6f 67 5d 20 7b 72 65 |sts .dia|log] {re|
|000018b0| 74 75 72 6e 20 24 67 5f | 73 74 61 74 75 73 7d 0d |turn $g_|status}.|
|000018c0| 0a 20 20 20 74 6f 70 6c | 65 76 65 6c 20 2e 64 69 |. topl|evel .di|
|000018d0| 61 6c 6f 67 0d 0a 20 20 | 20 77 6d 20 74 69 74 6c |alog.. | wm titl|
|000018e0| 65 20 2e 64 69 61 6c 6f | 67 20 5b 77 6d 20 74 69 |e .dialo|g [wm ti|
|000018f0| 74 6c 65 20 24 70 61 72 | 65 6e 74 5d 0d 0a 20 20 |tle $par|ent].. |
|00001900| 20 77 6d 20 74 72 61 6e | 73 69 65 6e 74 20 2e 64 | wm tran|sient .d|
|00001910| 69 61 6c 6f 67 20 2e 0d | 0a 23 20 20 20 77 6d 20 |ialog ..|.# wm |
|00001920| 72 65 73 69 7a 61 62 6c | 65 20 2e 64 69 61 6c 6f |resizabl|e .dialo|
|00001930| 67 20 30 20 30 20 0d 0a | 20 20 20 67 72 61 62 20 |g 0 0 ..| grab |
|00001940| 63 75 72 72 65 6e 74 20 | 2e 64 69 61 6c 6f 67 0d |current |.dialog.|
|00001950| 0a 0d 0a 20 20 20 23 23 | 23 23 23 23 23 23 23 23 |... ##|########|
|00001960| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001970| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001980| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001990| 23 23 23 23 23 0d 0a 20 | 20 20 23 20 43 72 65 61 |#####.. | # Crea|
|000019a0| 74 65 20 74 68 65 20 6d | 65 73 73 61 67 65 0d 0a |te the m|essage..|
|000019b0| 20 20 20 66 72 61 6d 65 | 20 2e 64 69 61 6c 6f 67 | frame| .dialog|
|000019c0| 2e 66 72 20 2d 62 6f 72 | 64 65 72 77 69 64 74 68 |.fr -bor|derwidth|
|000019d0| 20 24 52 49 44 47 45 5f | 42 4f 52 44 45 52 20 2d | $RIDGE_|BORDER -|
|000019e0| 72 65 6c 69 65 66 20 67 | 72 6f 6f 76 65 0d 0a 20 |relief g|roove.. |
|000019f0| 20 20 70 61 63 6b 20 2e | 64 69 61 6c 6f 67 2e 66 | pack .|dialog.f|
|00001a00| 72 20 2d 70 61 64 78 20 | 24 44 45 46 41 55 4c 54 |r -padx |$DEFAULT|
|00001a10| 5f 50 41 44 44 49 4e 47 | 20 2d 70 61 64 79 20 5c |_PADDING| -pady \|
|00001a20| 0d 0a 20 20 20 20 20 20 | 24 44 45 46 41 55 4c 54 |.. |$DEFAULT|
|00001a30| 5f 50 41 44 44 49 4e 47 | 20 2d 73 69 64 65 20 74 |_PADDING| -side t|
|00001a40| 6f 70 20 2d 65 78 70 61 | 6e 64 20 74 72 75 65 20 |op -expa|nd true |
|00001a50| 2d 66 69 6c 6c 20 62 6f | 74 68 0d 0a 20 20 20 6c |-fill bo|th.. l|
|00001a60| 61 62 65 6c 20 2e 64 69 | 61 6c 6f 67 2e 66 72 2e |abel .di|alog.fr.|
|00001a70| 62 69 74 6d 61 70 20 2d | 62 69 74 6d 61 70 20 71 |bitmap -|bitmap q|
|00001a80| 75 65 73 74 68 65 61 64 | 20 2d 68 65 69 67 68 74 |uesthead| -height|
|00001a90| 20 5c 0d 0a 20 20 20 20 | 20 20 24 42 49 54 4d 41 | \.. | $BITMA|
|00001aa0| 50 5f 48 45 49 47 48 54 | 20 2d 77 69 64 74 68 20 |P_HEIGHT| -width |
|00001ab0| 24 42 49 54 4d 41 50 5f | 57 49 44 54 48 0d 0a 20 |$BITMAP_|WIDTH.. |
|00001ac0| 20 20 6c 61 62 65 6c 20 | 2e 64 69 61 6c 6f 67 2e | label |.dialog.|
|00001ad0| 66 72 2e 6d 65 73 73 61 | 67 65 20 2d 74 65 78 74 |fr.messa|ge -text|
|00001ae0| 20 24 73 74 72 69 6e 67 | 20 2d 6a 75 73 74 69 66 | $string| -justif|
|00001af0| 79 20 6c 65 66 74 0d 0a | 20 20 20 70 61 63 6b 20 |y left..| pack |
|00001b00| 2e 64 69 61 6c 6f 67 2e | 66 72 2e 62 69 74 6d 61 |.dialog.|fr.bitma|
|00001b10| 70 20 2e 64 69 61 6c 6f | 67 2e 66 72 2e 6d 65 73 |p .dialo|g.fr.mes|
|00001b20| 73 61 67 65 20 2d 73 69 | 64 65 20 6c 65 66 74 20 |sage -si|de left |
|00001b30| 5c 0d 0a 20 20 20 20 20 | 20 2d 61 6e 63 68 6f 72 |\.. | -anchor|
|00001b40| 20 77 0d 0a 0d 0a 20 20 | 20 23 23 23 23 23 23 23 | w.... | #######|
|00001b50| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001b60| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001b70| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001b80| 23 23 23 23 23 23 23 23 | 0d 0a 20 20 20 23 20 43 |########|.. # C|
|00001b90| 72 65 61 74 65 20 74 68 | 65 20 62 75 74 74 6f 6e |reate th|e button|
|00001ba0| 73 20 62 65 6c 6f 77 20 | 74 68 65 20 66 72 61 6d |s below |the fram|
|00001bb0| 65 0d 0a 20 20 20 66 72 | 61 6d 65 20 2e 64 69 61 |e.. fr|ame .dia|
|00001bc0| 6c 6f 67 2e 62 75 74 74 | 6f 6e 5f 66 72 61 6d 65 |log.butt|on_frame|
|00001bd0| 20 2d 62 6f 72 64 65 72 | 77 69 64 74 68 20 24 44 | -border|width $D|
|00001be0| 45 46 41 55 4c 54 5f 50 | 41 44 44 49 4e 47 0d 0a |EFAULT_P|ADDING..|
|00001bf0| 20 20 20 70 61 63 6b 20 | 2e 64 69 61 6c 6f 67 2e | pack |.dialog.|
|00001c00| 62 75 74 74 6f 6e 5f 66 | 72 61 6d 65 20 2d 73 69 |button_f|rame -si|
|00001c10| 64 65 20 62 6f 74 74 6f | 6d 20 2d 66 69 6c 6c 20 |de botto|m -fill |
|00001c20| 78 0d 0a 20 20 20 62 75 | 74 74 6f 6e 20 2e 64 69 |x.. bu|tton .di|
|00001c30| 61 6c 6f 67 2e 62 75 74 | 74 6f 6e 5f 66 72 61 6d |alog.but|ton_fram|
|00001c40| 65 2e 6f 6b 20 5c 0d 0a | 20 20 20 20 20 20 2d 74 |e.ok \..| -t|
|00001c50| 65 78 74 20 24 62 75 74 | 74 6f 6e 31 20 2d 63 6f |ext $but|ton1 -co|
|00001c60| 6d 6d 61 6e 64 20 7b 64 | 65 73 74 72 6f 79 20 2e |mmand {d|estroy .|
|00001c70| 64 69 61 6c 6f 67 3b 20 | 73 65 74 20 67 5f 73 74 |dialog; |set g_st|
|00001c80| 61 74 75 73 20 30 7d 0d | 0a 20 20 20 62 75 74 74 |atus 0}.|. butt|
|00001c90| 6f 6e 20 2e 64 69 61 6c | 6f 67 2e 62 75 74 74 6f |on .dial|og.butto|
|00001ca0| 6e 5f 66 72 61 6d 65 2e | 63 61 6e 63 65 6c 20 5c |n_frame.|cancel \|
|00001cb0| 0d 0a 20 20 20 20 20 20 | 2d 74 65 78 74 20 24 62 |.. |-text $b|
|00001cc0| 75 74 74 6f 6e 32 20 2d | 63 6f 6d 6d 61 6e 64 20 |utton2 -|command |
|00001cd0| 7b 64 65 73 74 72 6f 79 | 20 2e 64 69 61 6c 6f 67 |{destroy| .dialog|
|00001ce0| 3b 20 73 65 74 20 67 5f | 73 74 61 74 75 73 20 31 |; set g_|status 1|
|00001cf0| 7d 0d 0a 20 20 20 70 61 | 63 6b 20 2e 64 69 61 6c |}.. pa|ck .dial|
|00001d00| 6f 67 2e 62 75 74 74 6f | 6e 5f 66 72 61 6d 65 2e |og.butto|n_frame.|
|00001d10| 6f 6b 20 2e 64 69 61 6c | 6f 67 2e 62 75 74 74 6f |ok .dial|og.butto|
|00001d20| 6e 5f 66 72 61 6d 65 2e | 63 61 6e 63 65 6c 20 5c |n_frame.|cancel \|
|00001d30| 0d 0a 20 20 20 20 20 20 | 2d 73 69 64 65 20 72 69 |.. |-side ri|
|00001d40| 67 68 74 0d 0a 0d 0a 20 | 20 20 23 23 23 23 23 23 |ght.... | ######|
|00001d50| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001d60| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001d70| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001d80| 23 23 23 23 23 23 23 23 | 23 0d 0a 20 20 20 23 20 |########|#.. # |
|00001d90| 43 65 6e 74 72 65 20 74 | 68 65 20 64 69 61 6c 6f |Centre t|he dialo|
|00001da0| 67 20 6f 6e 20 74 68 65 | 20 70 61 72 65 6e 74 0d |g on the| parent.|
|00001db0| 0a 20 20 20 4d 48 5f 43 | 65 6e 74 72 65 44 69 61 |. MH_C|entreDia|
|00001dc0| 6c 6f 67 20 2e 64 69 61 | 6c 6f 67 0d 0a 0d 0a 20 |log .dia|log.... |
|00001dd0| 20 20 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 | ######|########|
|00001de0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001df0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001e00| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001e10| 23 0d 0a 20 20 20 23 20 | 57 61 69 74 20 66 6f 72 |#.. # |Wait for|
|00001e20| 20 74 68 65 20 62 75 74 | 74 6f 6e 20 74 6f 20 62 | the but|ton to b|
|00001e30| 65 20 70 72 65 73 73 65 | 64 0d 0a 20 20 20 74 6b |e presse|d.. tk|
|00001e40| 77 61 69 74 20 76 61 72 | 69 61 62 6c 65 20 67 5f |wait var|iable g_|
|00001e50| 73 74 61 74 75 73 0d 0a | 20 20 20 72 65 74 75 72 |status..| retur|
|00001e60| 6e 20 24 67 5f 73 74 61 | 74 75 73 0d 0a 7d 0d 0a |n $g_sta|tus..}..|
|00001e70| 0d 0a 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |..######|########|
|00001e80| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001e90| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001ea0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001eb0| 23 0d 0a 23 20 44 69 73 | 70 6c 61 79 20 61 20 62 |#..# Dis|play a b|
|00001ec0| 6c 6f 63 6b 69 6e 67 20 | 69 6e 66 6f 72 6d 61 74 |locking |informat|
|00001ed0| 69 6f 6e 20 64 69 61 6c | 6f 67 0d 0a 70 72 6f 63 |ion dial|og..proc|
|00001ee0| 20 4d 48 5f 57 6f 72 6b | 69 6e 67 44 69 61 6c 6f | MH_Work|ingDialo|
|00001ef0| 67 20 7b 20 70 61 72 65 | 6e 74 20 73 74 72 69 6e |g { pare|nt strin|
|00001f00| 67 20 7d 20 7b 0d 0a 0d | 0a 20 20 20 23 20 47 6c |g } {...|. # Gl|
|00001f10| 6f 62 61 6c 73 0d 0a 20 | 20 20 67 6c 6f 62 61 6c |obals.. | global|
|00001f20| 20 46 4f 4e 54 5f 4e 4f | 52 4d 41 4c 20 52 49 44 | FONT_NO|RMAL RID|
|00001f30| 47 45 5f 42 4f 52 44 45 | 52 20 44 45 46 41 55 4c |GE_BORDE|R DEFAUL|
|00001f40| 54 5f 50 41 44 44 49 4e | 47 20 5c 0d 0a 20 20 20 |T_PADDIN|G \.. |
|00001f50| 20 20 20 42 49 54 4d 41 | 50 5f 48 45 49 47 48 54 | BITMA|P_HEIGHT|
|00001f60| 20 42 49 54 4d 41 50 5f | 57 49 44 54 48 0d 0a 0d | BITMAP_|WIDTH...|
|00001f70| 0a 20 20 20 23 20 44 69 | 73 70 6c 61 79 20 74 68 |. # Di|splay th|
|00001f80| 65 20 73 74 72 69 6e 67 | 20 74 6f 20 74 68 65 20 |e string| to the |
|00001f90| 75 73 65 72 0d 0a 20 20 | 20 69 66 20 5b 77 69 6e |user.. | if [win|
|00001fa0| 66 6f 20 65 78 69 73 74 | 73 20 2e 4d 48 5f 57 6f |fo exist|s .MH_Wo|
|00001fb0| 72 6b 69 6e 67 44 69 61 | 6c 6f 67 5d 20 72 65 74 |rkingDia|log] ret|
|00001fc0| 75 72 6e 0d 0a 20 20 20 | 73 65 74 20 77 69 6e 64 |urn.. |set wind|
|00001fd0| 6f 77 20 5b 74 6f 70 6c | 65 76 65 6c 20 2e 4d 48 |ow [topl|evel .MH|
|00001fe0| 5f 57 6f 72 6b 69 6e 67 | 44 69 61 6c 6f 67 5d 0d |_Working|Dialog].|
|00001ff0| 0a 20 20 20 77 6d 20 74 | 69 74 6c 65 20 2e 64 69 |. wm t|itle .di|
|00002000| 61 6c 6f 67 20 5b 77 6d | 20 74 69 74 6c 65 20 24 |alog [wm| title $|
|00002010| 70 61 72 65 6e 74 5d 0d | 0a 20 20 20 77 6d 20 74 |parent].|. wm t|
|00002020| 72 61 6e 73 69 65 6e 74 | 20 24 77 69 6e 64 6f 77 |ransient| $window|
|00002030| 20 2e 0d 0a 23 20 20 20 | 77 6d 20 72 65 73 69 7a | ...# |wm resiz|
|00002040| 61 62 6c 65 20 24 77 69 | 6e 64 6f 77 20 30 20 30 |able $wi|ndow 0 0|
|00002050| 20 0d 0a 20 20 20 67 72 | 61 62 20 63 75 72 72 65 | .. gr|ab curre|
|00002060| 6e 74 20 24 77 69 6e 64 | 6f 77 0d 0a 0d 0a 20 20 |nt $wind|ow.... |
|00002070| 20 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 | #######|########|
|00002080| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002090| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000020a0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000020b0| 0d 0a 20 20 20 23 20 43 | 72 65 61 74 65 20 74 68 |.. # C|reate th|
|000020c0| 65 20 6d 65 73 73 61 67 | 65 0d 0a 20 20 20 66 72 |e messag|e.. fr|
|000020d0| 61 6d 65 20 24 77 69 6e | 64 6f 77 2e 66 72 20 2d |ame $win|dow.fr -|
|000020e0| 62 6f 72 64 65 72 77 69 | 64 74 68 20 24 52 49 44 |borderwi|dth $RID|
|000020f0| 47 45 5f 42 4f 52 44 45 | 52 20 2d 72 65 6c 69 65 |GE_BORDE|R -relie|
|00002100| 66 20 67 72 6f 6f 76 65 | 0d 0a 20 20 20 70 61 63 |f groove|.. pac|
|00002110| 6b 20 24 77 69 6e 64 6f | 77 2e 66 72 20 2d 70 61 |k $windo|w.fr -pa|
|00002120| 64 78 20 24 44 45 46 41 | 55 4c 54 5f 50 41 44 44 |dx $DEFA|ULT_PADD|
|00002130| 49 4e 47 20 2d 70 61 64 | 79 20 5c 0d 0a 20 20 20 |ING -pad|y \.. |
|00002140| 20 20 20 24 44 45 46 41 | 55 4c 54 5f 50 41 44 44 | $DEFA|ULT_PADD|
|00002150| 49 4e 47 20 2d 73 69 64 | 65 20 74 6f 70 20 2d 65 |ING -sid|e top -e|
|00002160| 78 70 61 6e 64 20 74 72 | 75 65 20 2d 66 69 6c 6c |xpand tr|ue -fill|
|00002170| 20 62 6f 74 68 0d 0a 20 | 20 20 6c 61 62 65 6c 20 | both.. | label |
|00002180| 24 77 69 6e 64 6f 77 2e | 66 72 2e 62 69 74 6d 61 |$window.|fr.bitma|
|00002190| 70 20 2d 62 69 74 6d 61 | 70 20 68 6f 75 72 67 6c |p -bitma|p hourgl|
|000021a0| 61 73 73 20 2d 68 65 69 | 67 68 74 20 5c 0d 0a 20 |ass -hei|ght \.. |
|000021b0| 20 20 20 20 20 24 42 49 | 54 4d 41 50 5f 48 45 49 | $BI|TMAP_HEI|
|000021c0| 47 48 54 20 2d 77 69 64 | 74 68 20 24 42 49 54 4d |GHT -wid|th $BITM|
|000021d0| 41 50 5f 57 49 44 54 48 | 0d 0a 20 20 20 6c 61 62 |AP_WIDTH|.. lab|
|000021e0| 65 6c 20 24 77 69 6e 64 | 6f 77 2e 66 72 2e 6d 65 |el $wind|ow.fr.me|
|000021f0| 73 73 61 67 65 20 2d 74 | 65 78 74 20 24 73 74 72 |ssage -t|ext $str|
|00002200| 69 6e 67 20 2d 6a 75 73 | 74 69 66 79 20 6c 65 66 |ing -jus|tify lef|
|00002210| 74 0d 0a 20 20 20 70 61 | 63 6b 20 24 77 69 6e 64 |t.. pa|ck $wind|
|00002220| 6f 77 2e 66 72 2e 62 69 | 74 6d 61 70 20 24 77 69 |ow.fr.bi|tmap $wi|
|00002230| 6e 64 6f 77 2e 66 72 2e | 6d 65 73 73 61 67 65 20 |ndow.fr.|message |
|00002240| 2d 73 69 64 65 20 6c 65 | 66 74 20 5c 0d 0a 20 20 |-side le|ft \.. |
|00002250| 20 20 20 20 2d 61 6e 63 | 68 6f 72 20 77 0d 0a 0d | -anc|hor w...|
|00002260| 0a 20 20 20 23 23 23 23 | 23 23 23 23 23 23 23 23 |. ####|########|
|00002270| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002280| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002290| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000022a0| 23 23 23 0d 0a 20 20 20 | 23 20 43 65 6e 74 72 65 |###.. |# Centre|
|000022b0| 20 74 68 65 20 64 69 61 | 6c 6f 67 20 6f 6e 20 74 | the dia|log on t|
|000022c0| 68 65 20 70 61 72 65 6e | 74 20 28 77 61 73 20 77 |he paren|t (was w|
|000022d0| 69 64 67 65 74 20 24 70 | 61 72 65 6e 74 29 0d 0a |idget $p|arent)..|
|000022e0| 20 20 20 4d 48 5f 43 65 | 6e 74 72 65 44 69 61 6c | MH_Ce|ntreDial|
|000022f0| 6f 67 20 24 77 69 6e 64 | 6f 77 0d 0a 20 20 20 75 |og $wind|ow.. u|
|00002300| 70 64 61 74 65 0d 0a 7d | 0d 0a 0d 0a 23 23 23 23 |pdate..}|....####|
|00002310| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002320| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002330| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002340| 23 23 23 23 23 23 23 23 | 23 23 23 0d 0a 23 20 43 |########|###..# C|
|00002350| 65 6e 74 72 65 20 61 20 | 77 69 6e 64 6f 77 20 6f |entre a |window o|
|00002360| 6e 20 74 68 65 20 73 63 | 72 65 65 6e 20 28 6f 72 |n the sc|reen (or|
|00002370| 20 70 61 72 65 6e 74 29 | 0d 0a 70 72 6f 63 20 4d | parent)|..proc M|
|00002380| 48 5f 43 65 6e 74 72 65 | 44 69 61 6c 6f 67 20 7b |H_Centre|Dialog {|
|00002390| 77 69 6e 64 6f 77 20 7b | 70 6f 73 69 74 69 6f 6e |window {|position|
|000023a0| 20 22 22 7d 20 7b 70 61 | 72 65 6e 74 20 22 22 7d | ""} {pa|rent ""}|
|000023b0| 7d 20 7b 0d 0a 0d 0a 20 | 20 20 23 20 57 69 74 68 |} {.... | # With|
|000023c0| 64 72 61 77 20 64 69 61 | 6c 6f 67 20 61 6e 64 20 |draw dia|log and |
|000023d0| 75 70 64 61 74 65 20 61 | 6c 6c 20 77 69 6e 64 6f |update a|ll windo|
|000023e0| 77 73 0d 0a 20 20 20 77 | 6d 20 77 69 74 68 64 72 |ws.. w|m withdr|
|000023f0| 61 77 20 24 77 69 6e 64 | 6f 77 0d 0a 20 20 20 75 |aw $wind|ow.. u|
|00002400| 70 64 61 74 65 20 69 64 | 6c 65 74 61 73 6b 73 0d |pdate id|letasks.|
|00002410| 0a 20 20 20 73 65 74 20 | 77 69 6e 5f 77 69 64 74 |. set |win_widt|
|00002420| 68 20 5b 77 69 6e 66 6f | 20 72 65 71 77 69 64 74 |h [winfo| reqwidt|
|00002430| 68 20 24 77 69 6e 64 6f | 77 5d 0d 0a 20 20 20 73 |h $windo|w].. s|
|00002440| 65 74 20 77 69 6e 5f 68 | 65 69 67 68 74 20 5b 77 |et win_h|eight [w|
|00002450| 69 6e 66 6f 20 72 65 71 | 68 65 69 67 68 74 20 24 |info req|height $|
|00002460| 77 69 6e 64 6f 77 5d 0d | 0a 0d 0a 20 20 20 23 20 |window].|... # |
|00002470| 52 65 61 64 20 74 68 65 | 20 70 6f 73 69 74 69 6f |Read the| positio|
|00002480| 6e 69 6e 67 20 61 72 67 | 75 6d 65 6e 74 20 28 70 |ning arg|ument (p|
|00002490| 6f 69 6e 74 65 72 2c 20 | 77 69 64 67 65 74 2c 20 |ointer, |widget, |
|000024a0| 64 65 66 61 75 6c 74 29 | 0d 0a 20 20 20 73 77 69 |default)|.. swi|
|000024b0| 74 63 68 20 2d 67 6c 6f | 62 20 2d 2d 20 24 70 6f |tch -glo|b -- $po|
|000024c0| 73 69 74 69 6f 6e 20 7b | 0d 0a 20 20 20 20 20 20 |sition {|.. |
|000024d0| 70 2a 20 7b 0d 0a 20 20 | 20 20 20 20 20 20 20 23 |p* {.. | #|
|000024e0| 20 70 6c 61 63 65 20 61 | 74 20 50 4f 49 4e 54 45 | place a|t POINTE|
|000024f0| 52 20 28 63 65 6e 74 65 | 72 65 64 20 69 73 20 24 |R (cente|red is $|
|00002500| 61 20 3d 3d 20 63 65 6e | 74 65 72 29 0d 0a 20 20 |a == cen|ter).. |
|00002510| 20 20 20 20 20 20 20 77 | 6d 20 67 65 6f 6d 65 74 | w|m geomet|
|00002520| 72 79 20 24 77 69 6e 64 | 6f 77 20 2b 5b 65 78 70 |ry $wind|ow +[exp|
|00002530| 72 20 5c 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |r \.. | |
|00002540| 20 5b 77 69 6e 66 6f 20 | 70 6f 69 6e 74 65 72 78 | [winfo |pointerx|
|00002550| 20 24 77 69 6e 64 6f 77 | 5d 2d 24 77 69 6e 5f 77 | $window|]-$win_w|
|00002560| 69 64 74 68 20 5c 0d 0a | 20 20 20 20 20 20 20 20 |idth \..| |
|00002570| 20 20 20 20 2f 32 5d 2b | 5b 65 78 70 72 20 5b 77 | /2]+|[expr [w|
|00002580| 69 6e 66 6f 20 70 6f 69 | 6e 74 65 72 79 20 24 77 |info poi|ntery $w|
|00002590| 69 6e 64 6f 77 5d 2d 5c | 0d 0a 20 20 20 20 20 20 |indow]-\|.. |
|000025a0| 20 20 20 20 20 20 24 77 | 69 6e 5f 68 65 69 67 68 | $w|in_heigh|
|000025b0| 74 2f 32 5d 0d 0a 20 20 | 20 20 20 20 7d 0d 0a 20 |t/2].. | }.. |
|000025c0| 20 20 20 20 20 77 2a 20 | 7b 0d 0a 20 20 20 20 20 | w* |{.. |
|000025d0| 20 20 20 20 23 20 63 65 | 6e 74 65 72 20 61 62 6f | # ce|nter abo|
|000025e0| 75 74 20 57 49 44 47 45 | 54 20 24 70 61 72 65 6e |ut WIDGE|T $paren|
|000025f0| 74 0d 0a 20 20 20 20 20 | 20 20 20 20 77 6d 20 67 |t.. | wm g|
|00002600| 65 6f 6d 65 74 72 79 20 | 24 77 69 6e 64 6f 77 20 |eometry |$window |
|00002610| 2b 5b 65 78 70 72 20 5b | 77 69 6e 66 6f 20 72 6f |+[expr [|winfo ro|
|00002620| 6f 74 78 20 24 70 61 72 | 65 6e 74 5d 2b 20 5c 0d |otx $par|ent]+ \.|
|00002630| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 28 5b 77 |. | ([w|
|00002640| 69 6e 66 6f 20 77 69 64 | 74 68 20 24 70 61 72 65 |info wid|th $pare|
|00002650| 6e 74 5d 2d 24 77 69 6e | 5f 77 69 64 74 68 29 2f |nt]-$win|_width)/|
|00002660| 32 5d 2b 5b 65 78 70 72 | 20 5c 0d 0a 20 20 20 20 |2]+[expr| \.. |
|00002670| 20 20 20 20 20 20 20 20 | 5b 77 69 6e 66 6f 20 72 | |[winfo r|
|00002680| 6f 6f 74 79 20 24 70 61 | 72 65 6e 74 5d 2b 28 5b |ooty $pa|rent]+([|
|00002690| 77 69 6e 66 6f 20 68 65 | 69 67 68 74 20 5c 0d 0a |winfo he|ight \..|
|000026a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 24 70 61 72 | | $par|
|000026b0| 65 6e 74 5d 2d 24 77 69 | 6e 5f 68 65 69 67 68 74 |ent]-$wi|n_height|
|000026c0| 29 2f 32 5d 0d 0a 20 20 | 20 20 20 20 7d 0d 0a 20 |)/2].. | }.. |
|000026d0| 20 20 20 20 20 64 65 66 | 61 75 6c 74 20 7b 0d 0a | def|ault {..|
|000026e0| 20 20 20 20 20 20 20 20 | 20 77 6d 20 67 65 6f 6d | | wm geom|
|000026f0| 65 74 72 79 20 24 77 69 | 6e 64 6f 77 20 2b 5b 65 |etry $wi|ndow +[e|
|00002700| 78 70 72 20 28 5b 77 69 | 6e 66 6f 20 73 63 72 65 |xpr ([wi|nfo scre|
|00002710| 65 6e 77 69 64 74 68 20 | 5c 0d 0a 20 20 20 20 20 |enwidth |\.. |
|00002720| 20 20 20 20 20 20 20 24 | 77 69 6e 64 6f 77 5d 2d | $|window]-|
|00002730| 24 77 69 6e 5f 77 69 64 | 74 68 29 20 2f 20 32 5d |$win_wid|th) / 2]|
|00002740| 2b 5b 65 78 70 72 20 28 | 5b 77 69 6e 66 6f 20 73 |+[expr (|[winfo s|
|00002750| 63 72 65 65 6e 68 65 69 | 67 68 74 20 5c 0d 0a 20 |creenhei|ght \.. |
|00002760| 20 20 20 20 20 20 20 20 | 20 20 20 24 77 69 6e 64 | | $wind|
|00002770| 6f 77 5d 2d 20 24 77 69 | 6e 5f 68 65 69 67 68 74 |ow]- $wi|n_height|
|00002780| 29 20 2f 20 32 5d 0d 0a | 20 20 20 20 20 20 7d 0d |) / 2]..| }.|
|00002790| 0a 20 20 20 7d 0d 0a 0d | 0a 20 20 20 23 20 4e 6f |. }...|. # No|
|000027a0| 77 20 73 68 6f 77 20 74 | 68 65 20 77 69 6e 64 6f |w show t|he windo|
|000027b0| 77 0d 0a 20 20 20 77 6d | 20 64 65 69 63 6f 6e 69 |w.. wm| deiconi|
|000027c0| 66 79 20 24 77 69 6e 64 | 6f 77 0d 0a 7d 0d 0a 0d |fy $wind|ow..}...|
|000027d0| 0a 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |.#######|########|
|000027e0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000027f0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002800| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002810| 0d 0a 23 20 43 72 65 61 | 74 65 20 61 20 73 63 72 |..# Crea|te a scr|
|00002820| 6f 6c 6c 65 64 20 74 65 | 78 74 20 77 69 64 67 65 |olled te|xt widge|
|00002830| 74 0d 0a 70 72 6f 63 20 | 4d 48 5f 53 63 72 6f 6c |t..proc |MH_Scrol|
|00002840| 6c 65 64 54 65 78 74 20 | 7b 20 66 20 77 69 64 74 |ledText |{ f widt|
|00002850| 68 20 68 65 69 67 68 74 | 20 68 6f 72 69 7a 20 7d |h height| horiz }|
|00002860| 20 7b 0d 0a 0d 0a 20 20 | 20 23 20 47 6c 6f 62 61 | {.... | # Globa|
|00002870| 6c 20 0d 0a 20 20 20 67 | 6c 6f 62 61 6c 20 46 49 |l .. g|lobal FI|
|00002880| 58 45 44 5f 46 4f 4e 54 | 5f 53 4d 41 4c 4c 0d 0a |XED_FONT|_SMALL..|
|00002890| 0d 0a 20 20 20 66 72 61 | 6d 65 20 24 66 0d 0a 20 |.. fra|me $f.. |
|000028a0| 20 20 23 20 54 68 65 20 | 73 65 74 67 72 69 64 20 | # The |setgrid |
|000028b0| 73 65 74 74 69 6e 67 20 | 61 6c 6c 6f 77 73 20 74 |setting |allows t|
|000028c0| 68 65 20 77 69 6e 64 6f | 77 20 74 6f 20 62 65 20 |he windo|w to be |
|000028d0| 72 65 73 69 7a 65 64 2e | 0d 0a 20 20 20 74 65 78 |resized.|.. tex|
|000028e0| 74 20 24 66 2e 74 65 78 | 74 20 2d 77 69 64 74 68 |t $f.tex|t -width|
|000028f0| 20 24 77 69 64 74 68 20 | 2d 68 65 69 67 68 74 20 | $width |-height |
|00002900| 24 68 65 69 67 68 74 20 | 5c 0d 0a 20 20 20 20 20 |$height |\.. |
|00002910| 20 2d 73 65 74 67 72 69 | 64 20 74 72 75 65 20 20 | -setgri|d true |
|00002920| 2d 77 69 64 74 68 20 24 | 77 69 64 74 68 20 2d 77 |-width $|width -w|
|00002930| 72 61 70 20 77 6f 72 64 | 20 5c 0d 0a 20 20 20 20 |rap word| \.. |
|00002940| 20 20 2d 79 73 63 72 6f | 6c 6c 63 6f 6d 6d 61 6e | -yscro|llcomman|
|00002950| 64 20 5b 6c 69 73 74 20 | 24 66 2e 79 73 63 72 6f |d [list |$f.yscro|
|00002960| 6c 6c 20 73 65 74 5d 20 | 5c 0d 0a 20 20 20 20 20 |ll set] |\.. |
|00002970| 20 2d 66 6f 6e 74 20 24 | 46 49 58 45 44 5f 46 4f | -font $|FIXED_FO|
|00002980| 4e 54 5f 53 4d 41 4c 4c | 0d 0a 20 20 20 69 66 20 |NT_SMALL|.. if |
|00002990| 7b 24 68 6f 72 69 7a 20 | 3d 3d 20 31 7d 20 7b 0d |{$horiz |== 1} {.|
|000029a0| 0a 20 20 20 20 20 20 24 | 66 2e 74 65 78 74 20 63 |. $|f.text c|
|000029b0| 6f 6e 66 69 67 75 72 65 | 20 2d 78 73 63 72 6f 6c |onfigure| -xscrol|
|000029c0| 6c 63 6f 6d 6d 61 6e 64 | 20 5b 6c 69 73 74 20 5c |lcommand| [list \|
|000029d0| 0d 0a 20 20 20 20 20 20 | 20 20 20 24 66 2e 78 73 |.. | $f.xs|
|000029e0| 63 72 6f 6c 6c 20 73 65 | 74 5d 20 2d 77 72 61 70 |croll se|t] -wrap|
|000029f0| 20 6e 6f 6e 65 20 0d 0a | 20 20 20 20 20 20 73 63 | none ..| sc|
|00002a00| 72 6f 6c 6c 62 61 72 20 | 24 66 2e 78 73 63 72 6f |rollbar |$f.xscro|
|00002a10| 6c 6c 20 2d 6f 72 69 65 | 6e 74 20 68 6f 72 69 7a |ll -orie|nt horiz|
|00002a20| 6f 6e 74 61 6c 20 5c 0d | 0a 20 20 20 20 20 20 20 |ontal \.|. |
|00002a30| 20 20 2d 63 6f 6d 6d 61 | 6e 64 20 5b 6c 69 73 74 | -comma|nd [list|
|00002a40| 20 24 66 2e 74 65 78 74 | 20 78 76 69 65 77 5d 0d | $f.text| xview].|
|00002a50| 0a 20 20 20 20 20 20 70 | 61 63 6b 20 24 66 2e 78 |. p|ack $f.x|
|00002a60| 73 63 72 6f 6c 6c 20 2d | 73 69 64 65 20 62 6f 74 |scroll -|side bot|
|00002a70| 74 6f 6d 20 2d 66 69 6c | 6c 20 78 0d 0a 20 20 20 |tom -fil|l x.. |
|00002a80| 7d 0d 0a 20 20 20 73 63 | 72 6f 6c 6c 62 61 72 20 |}.. sc|rollbar |
|00002a90| 24 66 2e 79 73 63 72 6f | 6c 6c 20 2d 6f 72 69 65 |$f.yscro|ll -orie|
|00002aa0| 6e 74 20 76 65 72 74 69 | 63 61 6c 20 5c 0d 0a 20 |nt verti|cal \.. |
|00002ab0| 20 20 20 20 20 2d 63 6f | 6d 6d 61 6e 64 20 5b 6c | -co|mmand [l|
|00002ac0| 69 73 74 20 24 66 2e 74 | 65 78 74 20 79 76 69 65 |ist $f.t|ext yvie|
|00002ad0| 77 5d 0d 0a 20 20 20 70 | 61 63 6b 20 24 66 2e 79 |w].. p|ack $f.y|
|00002ae0| 73 63 72 6f 6c 6c 20 2d | 73 69 64 65 20 72 69 67 |scroll -|side rig|
|00002af0| 68 74 20 2d 66 69 6c 6c | 20 79 0d 0a 0d 0a 20 20 |ht -fill| y.... |
|00002b00| 20 23 20 54 68 65 20 66 | 69 6c 6c 20 61 6e 64 20 | # The f|ill and |
|00002b10| 65 78 70 61 6e 64 20 61 | 72 65 20 6e 65 65 64 65 |expand a|re neede|
|00002b20| 64 20 77 68 65 6e 20 72 | 65 73 69 7a 69 6e 67 2e |d when r|esizing.|
|00002b30| 0d 0a 20 20 20 70 61 63 | 6b 20 24 66 2e 74 65 78 |.. pac|k $f.tex|
|00002b40| 74 20 2d 73 69 64 65 20 | 6c 65 66 74 20 2d 66 69 |t -side |left -fi|
|00002b50| 6c 6c 20 62 6f 74 68 20 | 2d 65 78 70 61 6e 64 20 |ll both |-expand |
|00002b60| 74 72 75 65 0d 0a 20 20 | 20 70 61 63 6b 20 24 66 |true.. | pack $f|
|00002b70| 20 2d 73 69 64 65 20 74 | 6f 70 20 2d 66 69 6c 6c | -side t|op -fill|
|00002b80| 20 62 6f 74 68 20 2d 65 | 78 70 61 6e 64 20 74 72 | both -e|xpand tr|
|00002b90| 75 65 0d 0a 20 20 20 72 | 65 74 75 72 6e 20 24 66 |ue.. r|eturn $f|
|00002ba0| 2e 74 65 78 74 0d 0a 7d | 0d 0a 0d 0a 23 23 23 23 |.text..}|....####|
|00002bb0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002bc0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002bd0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002be0| 23 23 23 23 23 23 23 23 | 23 23 23 0d 0a 23 20 43 |########|###..# C|
|00002bf0| 72 65 61 74 65 20 61 20 | 73 63 72 6f 6c 6c 65 64 |reate a |scrolled|
|00002c00| 20 74 65 78 74 20 77 69 | 64 67 65 74 0d 0a 70 72 | text wi|dget..pr|
|00002c10| 6f 63 20 4d 48 5f 53 63 | 72 6f 6c 6c 65 64 4c 69 |oc MH_Sc|rolledLi|
|00002c20| 73 74 20 7b 20 66 72 61 | 6d 65 20 77 69 64 74 68 |st { fra|me width|
|00002c30| 20 68 65 69 67 68 74 20 | 6d 6f 64 65 20 68 6f 72 | height |mode hor|
|00002c40| 69 7a 20 7d 20 7b 0d 0a | 0d 0a 20 20 20 66 72 61 |iz } {..|.. fra|
|00002c50| 6d 65 20 24 66 72 61 6d | 65 0d 0a 20 20 20 23 20 |me $fram|e.. # |
|00002c60| 54 68 65 20 73 65 74 67 | 72 69 64 20 73 65 74 74 |The setg|rid sett|
|00002c70| 69 6e 67 20 61 6c 6c 6f | 77 73 20 74 68 65 20 77 |ing allo|ws the w|
|00002c80| 69 6e 64 6f 77 20 74 6f | 20 62 65 20 72 65 73 69 |indow to| be resi|
|00002c90| 7a 65 64 2e 0d 0a 20 20 | 20 6c 69 73 74 62 6f 78 |zed... | listbox|
|00002ca0| 20 24 66 72 61 6d 65 2e | 6c 69 73 74 20 2d 77 69 | $frame.|list -wi|
|00002cb0| 64 74 68 20 24 77 69 64 | 74 68 20 2d 68 65 69 67 |dth $wid|th -heig|
|00002cc0| 68 74 20 24 68 65 69 67 | 68 74 20 5c 0d 0a 20 20 |ht $heig|ht \.. |
|00002cd0| 20 20 20 20 2d 73 65 74 | 67 72 69 64 20 74 72 75 | -set|grid tru|
|00002ce0| 65 20 2d 79 73 63 72 6f | 6c 6c 63 6f 6d 6d 61 6e |e -yscro|llcomman|
|00002cf0| 64 20 5b 6c 69 73 74 20 | 24 66 72 61 6d 65 2e 79 |d [list |$frame.y|
|00002d00| 73 63 72 6f 6c 6c 20 73 | 65 74 5d 20 5c 0d 0a 20 |scroll s|et] \.. |
|00002d10| 20 20 20 20 20 2d 73 65 | 6c 65 63 74 6d 6f 64 65 | -se|lectmode|
|00002d20| 20 24 6d 6f 64 65 0d 0a | 20 20 20 69 66 20 7b 24 | $mode..| if {$|
|00002d30| 68 6f 72 69 7a 20 3d 3d | 20 31 7d 20 7b 0d 0a 20 |horiz ==| 1} {.. |
|00002d40| 20 20 20 20 20 24 66 72 | 61 6d 65 2e 6c 69 73 74 | $fr|ame.list|
|00002d50| 20 63 6f 6e 66 69 67 75 | 72 65 20 2d 78 73 63 72 | configu|re -xscr|
|00002d60| 6f 6c 6c 63 6f 6d 6d 61 | 6e 64 20 5b 6c 69 73 74 |ollcomma|nd [list|
|00002d70| 20 5c 0d 0a 20 20 20 20 | 20 20 20 20 20 24 66 72 | \.. | $fr|
|00002d80| 61 6d 65 2e 78 73 63 72 | 6f 6c 6c 20 73 65 74 5d |ame.xscr|oll set]|
|00002d90| 20 2d 77 72 61 70 20 6e | 6f 6e 65 20 0d 0a 20 20 | -wrap n|one .. |
|00002da0| 20 20 20 20 73 63 72 6f | 6c 6c 62 61 72 20 24 66 | scro|llbar $f|
|00002db0| 72 61 6d 65 2e 78 73 63 | 72 6f 6c 6c 20 2d 6f 72 |rame.xsc|roll -or|
|00002dc0| 69 65 6e 74 20 68 6f 72 | 69 7a 6f 6e 74 61 6c 20 |ient hor|izontal |
|00002dd0| 5c 0d 0a 20 20 20 20 20 | 20 20 20 20 2d 63 6f 6d |\.. | -com|
|00002de0| 6d 61 6e 64 20 5b 6c 69 | 73 74 20 24 66 72 61 6d |mand [li|st $fram|
|00002df0| 65 2e 6c 69 73 74 20 78 | 76 69 65 77 5d 0d 0a 20 |e.list x|view].. |
|00002e00| 20 20 20 20 20 70 61 63 | 6b 20 24 66 72 61 6d 65 | pac|k $frame|
|00002e10| 2e 78 73 63 72 6f 6c 6c | 20 2d 73 69 64 65 20 62 |.xscroll| -side b|
|00002e20| 6f 74 74 6f 6d 20 2d 66 | 69 6c 6c 20 78 0d 0a 20 |ottom -f|ill x.. |
|00002e30| 20 20 7d 0d 0a 20 20 20 | 73 63 72 6f 6c 6c 62 61 | }.. |scrollba|
|00002e40| 72 20 24 66 72 61 6d 65 | 2e 79 73 63 72 6f 6c 6c |r $frame|.yscroll|
|00002e50| 20 2d 6f 72 69 65 6e 74 | 20 76 65 72 74 69 63 61 | -orient| vertica|
|00002e60| 6c 20 5c 0d 0a 20 20 20 | 20 20 20 2d 63 6f 6d 6d |l \.. | -comm|
|00002e70| 61 6e 64 20 5b 6c 69 73 | 74 20 24 66 72 61 6d 65 |and [lis|t $frame|
|00002e80| 2e 6c 69 73 74 20 79 76 | 69 65 77 5d 0d 0a 20 20 |.list yv|iew].. |
|00002e90| 20 70 61 63 6b 20 24 66 | 72 61 6d 65 2e 79 73 63 | pack $f|rame.ysc|
|00002ea0| 72 6f 6c 6c 20 2d 73 69 | 64 65 20 72 69 67 68 74 |roll -si|de right|
|00002eb0| 20 2d 66 69 6c 6c 20 79 | 0d 0a 0d 0a 20 20 20 23 | -fill y|.... #|
|00002ec0| 20 54 68 65 20 66 69 6c | 6c 20 61 6e 64 20 65 78 | The fil|l and ex|
|00002ed0| 70 61 6e 64 20 61 72 65 | 20 6e 65 65 64 65 64 20 |pand are| needed |
|00002ee0| 77 68 65 6e 20 72 65 73 | 69 7a 69 6e 67 2e 0d 0a |when res|izing...|
|00002ef0| 20 20 20 70 61 63 6b 20 | 24 66 72 61 6d 65 2e 6c | pack |$frame.l|
|00002f00| 69 73 74 20 2d 73 69 64 | 65 20 6c 65 66 74 20 2d |ist -sid|e left -|
|00002f10| 66 69 6c 6c 20 62 6f 74 | 68 20 2d 65 78 70 61 6e |fill bot|h -expan|
|00002f20| 64 20 74 72 75 65 0d 0a | 20 20 20 70 61 63 6b 20 |d true..| pack |
|00002f30| 24 66 72 61 6d 65 20 2d | 73 69 64 65 20 74 6f 70 |$frame -|side top|
|00002f40| 20 2d 66 69 6c 6c 20 62 | 6f 74 68 20 2d 65 78 70 | -fill b|oth -exp|
|00002f50| 61 6e 64 20 74 72 75 65 | 0d 0a 20 20 20 72 65 74 |and true|.. ret|
|00002f60| 75 72 6e 20 24 66 72 61 | 6d 65 2e 6c 69 73 74 0d |urn $fra|me.list.|
|00002f70| 0a 7d 0d 0a 0d 0a 23 23 | 23 23 23 23 23 23 23 23 |.}....##|########|
|00002f80| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002f90| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002fa0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002fb0| 23 23 23 23 23 0d 0a 23 | 20 54 68 65 20 70 72 6f |#####..#| The pro|
|00002fc0| 63 65 64 75 72 65 20 66 | 6f 72 20 70 6f 70 70 69 |cedure f|or poppi|
|00002fd0| 6e 67 20 75 70 20 61 20 | 70 6f 70 75 70 20 6d 65 |ng up a |popup me|
|00002fe0| 6e 75 0d 0a 70 72 6f 63 | 20 4d 48 5f 50 6f 70 75 |nu..proc| MH_Popu|
|00002ff0| 70 4d 65 6e 75 20 7b 20 | 70 61 72 65 6e 74 20 77 |pMenu { |parent w|
|00003000| 69 6e 64 6f 77 20 7d 20 | 7b 0d 0a 0d 0a 20 20 20 |indow } |{.... |
|00003010| 23 20 47 65 74 20 63 75 | 72 72 65 6e 74 20 6d 6f |# Get cu|rrent mo|
|00003020| 75 73 65 20 70 6f 73 69 | 74 69 6f 6e 0d 0a 20 20 |use posi|tion.. |
|00003030| 20 73 65 74 20 78 20 5b | 20 77 69 6e 66 6f 20 70 | set x [| winfo p|
|00003040| 6f 69 6e 74 65 72 78 20 | 24 70 61 72 65 6e 74 20 |ointerx |$parent |
|00003050| 5d 0d 0a 20 20 20 73 65 | 74 20 79 20 5b 20 77 69 |].. se|t y [ wi|
|00003060| 6e 66 6f 20 70 6f 69 6e | 74 65 72 79 20 24 70 61 |nfo poin|tery $pa|
|00003070| 72 65 6e 74 20 5d 0d 0a | 0d 0a 20 20 20 23 20 50 |rent ]..|.. # P|
|00003080| 6f 70 75 70 20 74 68 65 | 20 6d 65 6e 75 0d 0a 20 |opup the| menu.. |
|00003090| 20 20 74 6b 5f 70 6f 70 | 75 70 20 24 77 69 6e 64 | tk_pop|up $wind|
|000030a0| 6f 77 20 24 78 20 24 79 | 0d 0a 7d 0d 0a 0d 0a 23 |ow $x $y|..}....#|
|000030b0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000030c0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000030d0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000030e0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 0d 0a |########|######..|
|000030f0| 23 20 43 68 61 6e 67 65 | 20 63 75 72 73 6f 72 20 |# Change| cursor |
|00003100| 74 6f 20 61 6e 20 68 6f | 75 72 67 6c 61 73 73 20 |to an ho|urglass |
|00003110| 61 6e 64 20 62 61 63 6b | 20 61 67 61 69 6e 0d 0a |and back| again..|
|00003120| 70 72 6f 63 20 4d 48 5f | 57 61 74 63 68 43 75 72 |proc MH_|WatchCur|
|00003130| 73 6f 72 20 7b 7d 20 7b | 0d 0a 0d 0a 20 20 20 23 |sor {} {|.... #|
|00003140| 20 4c 6f 6f 70 20 74 68 | 72 6f 75 67 68 20 63 68 | Loop th|rough ch|
|00003150| 69 6c 64 72 65 6e 20 73 | 65 74 74 69 6e 67 20 74 |ildren s|etting t|
|00003160| 68 65 20 63 75 72 73 6f | 72 0d 0a 20 20 20 20 20 |he curso|r.. |
|00003170| 20 20 20 66 6f 72 65 61 | 63 68 20 77 20 5b 77 69 | forea|ch w [wi|
|00003180| 6e 66 6f 20 63 68 69 6c | 64 72 65 6e 20 2e 5d 20 |nfo chil|dren .] |
|00003190| 7b 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |{.. | |
|000031a0| 20 20 20 6c 61 70 70 65 | 6e 64 20 62 75 73 79 20 | lappe|nd busy |
|000031b0| 5b 6c 69 73 74 20 24 77 | 20 5b 6c 69 6e 64 65 78 |[list $w| [lindex|
|000031c0| 20 5b 24 77 20 63 6f 6e | 66 69 67 20 2d 63 75 72 | [$w con|fig -cur|
|000031d0| 73 6f 72 5d 20 34 5d 5d | 0d 0a 20 20 20 20 20 20 |sor] 4]]|.. |
|000031e0| 20 20 7d 0d 0a 20 20 20 | 20 20 20 20 20 66 6f 72 | }.. | for|
|000031f0| 65 61 63 68 20 77 20 24 | 62 75 73 79 20 7b 63 61 |each w $|busy {ca|
|00003200| 74 63 68 20 7b 5b 6c 69 | 6e 64 65 78 20 24 77 20 |tch {[li|ndex $w |
|00003210| 30 5d 20 63 6f 6e 66 69 | 67 20 2d 63 75 72 73 6f |0] confi|g -curso|
|00003220| 72 20 77 61 74 63 68 7d | 7d 0d 0a 20 20 20 20 20 |r watch}|}.. |
|00003230| 20 20 20 75 70 64 61 74 | 65 20 69 64 6c 65 74 61 | updat|e idleta|
|00003240| 73 6b 73 0d 0a 7d 0d 0a | 70 72 6f 63 20 4d 48 5f |sks..}..|proc MH_|
|00003250| 4e 6f 72 6d 61 6c 43 75 | 72 73 6f 72 20 7b 7d 20 |NormalCu|rsor {} |
|00003260| 7b 0d 0a 0d 0a 20 20 20 | 23 20 4c 6f 6f 70 20 74 |{.... |# Loop t|
|00003270| 68 72 6f 75 67 68 20 63 | 68 69 6c 64 72 65 6e 20 |hrough c|hildren |
|00003280| 73 65 74 74 69 6e 67 20 | 74 68 65 20 63 75 72 73 |setting |the curs|
|00003290| 6f 72 0d 0a 20 20 20 20 | 20 20 20 20 66 6f 72 65 |or.. | fore|
|000032a0| 61 63 68 20 77 20 5b 77 | 69 6e 66 6f 20 63 68 69 |ach w [w|info chi|
|000032b0| 6c 64 72 65 6e 20 2e 5d | 20 7b 0d 0a 20 20 20 20 |ldren .]| {.. |
|000032c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 6c 61 70 70 | | lapp|
|000032d0| 65 6e 64 20 6e 6f 74 62 | 75 73 79 20 5b 6c 69 73 |end notb|usy [lis|
|000032e0| 74 20 24 77 20 5b 6c 69 | 6e 64 65 78 20 5b 24 77 |t $w [li|ndex [$w|
|000032f0| 20 63 6f 6e 66 69 67 20 | 2d 63 75 72 73 6f 72 5d | config |-cursor]|
|00003300| 20 34 5d 5d 0d 0a 20 20 | 20 20 20 20 20 20 7d 0d | 4]].. | }.|
|00003310| 0a 20 20 20 20 20 20 20 | 20 66 6f 72 65 61 63 68 |. | foreach|
|00003320| 20 77 20 24 6e 6f 74 62 | 75 73 79 20 7b 63 61 74 | w $notb|usy {cat|
|00003330| 63 68 20 7b 5b 6c 69 6e | 64 65 78 20 24 77 20 30 |ch {[lin|dex $w 0|
|00003340| 5d 20 63 6f 6e 66 69 67 | 20 2d 63 75 72 73 6f 72 |] config| -cursor|
|00003350| 20 68 61 6e 64 32 7d 7d | 0d 0a 20 20 20 20 20 20 | hand2}}|.. |
|00003360| 20 20 75 70 64 61 74 65 | 20 69 64 6c 65 74 61 73 | update| idletas|
|00003370| 6b 73 0d 0a 7d 0d 0a 0d | 0a 0d 0a 23 23 23 23 23 |ks..}...|...#####|
|00003380| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003390| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000033a0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000033b0| 23 23 23 23 23 23 23 23 | 23 23 0d 0a 23 20 54 68 |########|##..# Th|
|000033c0| 65 20 70 72 6f 63 65 64 | 75 72 65 20 66 6f 72 20 |e proced|ure for |
|000033d0| 63 72 65 61 74 69 6e 67 | 20 69 6d 61 67 65 73 0d |creating| images.|
|000033e0| 0a 70 72 6f 63 20 4d 48 | 5f 43 72 65 61 74 65 49 |.proc MH|_CreateI|
|000033f0| 6d 61 67 65 20 7b 20 66 | 69 6c 65 20 7d 20 7b 0d |mage { f|ile } {.|
|00003400| 0a 0d 0a 20 20 20 23 20 | 54 68 69 73 20 70 72 6f |... # |This pro|
|00003410| 63 65 64 75 72 65 20 61 | 74 74 65 6d 70 74 73 20 |cedure a|ttempts |
|00003420| 74 6f 20 63 72 65 61 74 | 65 20 61 6e 20 69 6d 61 |to creat|e an ima|
|00003430| 67 65 20 66 72 6f 6d 0d | 0a 20 20 20 23 20 74 68 |ge from.|. # th|
|00003440| 65 20 64 61 74 61 20 73 | 70 65 63 69 66 69 65 64 |e data s|pecified|
|00003450| 20 69 6e 20 74 68 65 20 | 6e 61 6d 65 64 20 66 69 | in the |named fi|
|00003460| 6c 65 2e 20 20 49 66 20 | 74 68 65 20 0d 0a 20 20 |le. If |the .. |
|00003470| 20 23 20 66 69 6c 65 20 | 69 73 20 6e 6f 6e 2d 65 | # file |is non-e|
|00003480| 78 69 73 74 61 6e 74 2c | 20 6f 72 20 74 68 65 20 |xistant,| or the |
|00003490| 69 6d 61 67 65 20 74 79 | 70 65 20 69 73 20 6e 6f |image ty|pe is no|
|000034a0| 74 0d 0a 20 20 20 23 20 | 73 75 70 70 6f 72 74 65 |t.. # |supporte|
|000034b0| 64 2c 20 2d 31 20 69 73 | 20 72 65 74 75 72 6e 65 |d, -1 is| returne|
|000034c0| 64 20 61 6e 64 20 61 20 | 64 69 61 6c 6f 67 75 65 |d and a |dialogue|
|000034d0| 20 69 73 0d 0a 20 20 20 | 23 20 64 69 73 70 6c 61 | is.. |# displa|
|000034e0| 79 65 64 2e 0d 0a 0d 0a | 20 20 20 69 66 20 5b 66 |yed.....| if [f|
|000034f0| 69 6c 65 20 65 78 69 73 | 74 73 20 24 66 69 6c 65 |ile exis|ts $file|
|00003500| 5d 20 7b 0d 0a 0d 0a 20 | 20 20 20 20 20 23 20 43 |] {.... | # C|
|00003510| 72 65 61 74 65 20 74 68 | 65 20 69 6d 61 67 65 0d |reate th|e image.|
|00003520| 0a 20 20 20 20 20 20 73 | 65 74 20 6e 61 6d 65 20 |. s|et name |
|00003530| 5b 6a 6f 69 6e 20 5b 6c | 69 73 74 20 24 66 69 6c |[join [l|ist $fil|
|00003540| 65 20 22 5f 69 6d 61 67 | 65 22 5d 20 22 22 5d 0d |e "_imag|e"] ""].|
|00003550| 0a 20 20 20 20 20 20 69 | 66 20 5b 63 61 74 63 68 |. i|f [catch|
|00003560| 20 7b 69 6d 61 67 65 20 | 63 72 65 61 74 65 20 62 | {image |create b|
|00003570| 69 74 6d 61 70 20 24 6e | 61 6d 65 20 2d 66 69 6c |itmap $n|ame -fil|
|00003580| 65 20 24 66 69 6c 65 7d | 20 74 65 78 74 5d 20 7b |e $file}| text] {|
|00003590| 0d 0a 20 20 20 20 20 20 | 20 20 20 23 20 4e 6f 74 |.. | # Not|
|000035a0| 20 61 20 62 69 74 6d 61 | 70 2c 20 74 72 79 20 70 | a bitma|p, try p|
|000035b0| 69 78 6d 61 70 0d 0a 20 | 20 20 20 20 20 20 20 20 |ixmap.. | |
|000035c0| 69 66 20 5b 63 61 74 63 | 68 20 7b 69 6d 61 67 65 |if [catc|h {image|
|000035d0| 20 63 72 65 61 74 65 20 | 70 69 78 6d 61 70 20 24 | create |pixmap $|
|000035e0| 6e 61 6d 65 20 2d 66 69 | 6c 65 20 24 66 69 6c 65 |name -fi|le $file|
|000035f0| 7d 20 74 65 78 74 5d 20 | 7b 0d 0a 20 20 20 20 20 |} text] |{.. |
|00003600| 20 20 20 20 20 20 20 23 | 20 4e 6f 74 20 61 20 70 | #| Not a p|
|00003610| 69 78 6d 61 70 2c 20 74 | 72 79 20 67 69 66 0d 0a |ixmap, t|ry gif..|
|00003620| 20 20 20 20 20 20 20 20 | 20 20 20 20 69 66 20 5b | | if [|
|00003630| 63 61 74 63 68 20 7b 69 | 6d 61 67 65 20 63 72 65 |catch {i|mage cre|
|00003640| 61 74 65 20 70 68 6f 74 | 6f 20 24 6e 61 6d 65 20 |ate phot|o $name |
|00003650| 2d 66 69 6c 65 20 24 66 | 69 6c 65 7d 20 74 65 78 |-file $f|ile} tex|
|00003660| 74 5d 20 7b 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |t] {.. | |
|00003670| 20 20 20 20 20 23 20 47 | 69 76 65 20 75 70 21 0d | # G|ive up!.|
|00003680| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00003690| 4d 48 5f 49 6e 66 6f 44 | 69 61 6c 6f 67 20 2e 20 |MH_InfoD|ialog . |
|000036a0| 22 49 6d 61 67 65 20 24 | 66 69 6c 65 20 68 61 73 |"Image $|file has|
|000036b0| 20 61 6e 20 75 6e 72 65 | 63 6f 67 6e 69 73 65 64 | an unre|cognised|
|000036c0| 20 74 79 70 65 21 0d 0a | 53 65 65 20 68 65 6c 70 | type!..|See help|
|000036d0| 20 6f 6e 20 69 6d 61 67 | 65 73 20 66 6f 72 20 6d | on imag|es for m|
|000036e0| 6f 72 65 20 69 6e 66 6f | 72 6d 61 74 69 6f 6e 2e |ore info|rmation.|
|000036f0| 22 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |".. | |
|00003700| 20 20 72 65 74 75 72 6e | 20 2d 31 0d 0a 20 20 20 | return| -1.. |
|00003710| 20 20 20 20 20 20 20 20 | 20 7d 0d 0a 20 20 20 20 | | }.. |
|00003720| 20 20 20 20 20 7d 0d 0a | 20 20 20 20 20 20 7d 0d | }..| }.|
|00003730| 0a 20 20 20 20 20 20 72 | 65 74 75 72 6e 20 24 6e |. r|eturn $n|
|00003740| 61 6d 65 0d 0a 20 20 20 | 7d 20 65 6c 73 65 20 7b |ame.. |} else {|
|00003750| 0d 0a 20 20 20 20 20 20 | 4d 48 5f 49 6e 66 6f 44 |.. |MH_InfoD|
|00003760| 69 61 6c 6f 67 20 2e 20 | 22 46 69 6c 65 20 24 66 |ialog . |"File $f|
|00003770| 69 6c 65 20 64 6f 65 73 | 20 6e 6f 74 20 65 78 69 |ile does| not exi|
|00003780| 73 74 73 21 22 0d 0a 20 | 20 20 20 20 20 72 65 74 |sts!".. | ret|
|00003790| 75 72 6e 20 2d 31 0d 0a | 20 20 20 7d 0d 0a 7d 0d |urn -1..| }..}.|
|000037a0| 0a 0d 0a 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |...#####|########|
|000037b0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000037c0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000037d0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000037e0| 23 23 0d 0a 23 20 54 68 | 65 20 70 72 6f 63 65 64 |##..# Th|e proced|
|000037f0| 75 72 65 20 66 6f 72 20 | 73 65 6c 65 63 74 69 6e |ure for |selectin|
|00003800| 67 20 61 20 66 69 6c 65 | 0d 0a 70 72 6f 63 20 4d |g a file|..proc M|
|00003810| 48 5f 46 69 6c 65 53 65 | 6c 65 63 74 20 7b 20 7b |H_FileSe|lect { {|
|00003820| 74 69 74 6c 65 20 22 53 | 65 6c 65 63 74 20 46 69 |title "S|elect Fi|
|00003830| 6c 65 22 7d 20 7b 66 69 | 6c 74 65 72 20 22 2a 22 |le"} {fi|lter "*"|
|00003840| 7d 20 7d 20 7b 0d 0a 0d | 0a 20 20 20 23 20 54 68 |} } {...|. # Th|
|00003850| 69 73 20 70 72 6f 63 65 | 64 75 72 65 20 70 6f 70 |is proce|dure pop|
|00003860| 73 20 75 70 20 61 20 66 | 69 6c 65 20 73 65 6c 65 |s up a f|ile sele|
|00003870| 63 74 69 6f 6e 20 62 6f | 78 0d 0a 20 20 20 23 20 |ction bo|x.. # |
|00003880| 61 6e 64 20 72 65 74 75 | 72 6e 73 20 74 68 65 20 |and retu|rns the |
|00003890| 73 65 6c 65 63 74 65 64 | 20 66 69 6c 65 2e 0d 0a |selected| file...|
|000038a0| 0d 0a 20 20 20 23 20 47 | 6c 6f 62 61 6c 73 0d 0a |.. # G|lobals..|
|000038b0| 20 20 20 67 6c 6f 62 61 | 6c 20 54 45 58 54 5f 43 | globa|l TEXT_C|
|000038c0| 4f 4c 4f 55 52 20 44 45 | 46 41 55 4c 54 5f 50 41 |OLOUR DE|FAULT_PA|
|000038d0| 44 44 49 4e 47 20 52 49 | 44 47 45 5f 42 4f 52 44 |DDING RI|DGE_BORD|
|000038e0| 45 52 20 5c 0d 0a 20 20 | 20 20 20 20 67 5f 73 65 |ER \.. | g_se|
|000038f0| 6c 65 63 74 65 64 5f 66 | 69 6c 65 20 67 5f 73 65 |lected_f|ile g_se|
|00003900| 6c 65 63 74 65 64 5f 66 | 69 6c 65 5f 66 69 6c 74 |lected_f|ile_filt|
|00003910| 65 72 0d 0a 20 20 20 73 | 65 74 20 67 5f 73 65 6c |er.. s|et g_sel|
|00003920| 65 63 74 65 64 5f 66 69 | 6c 65 5f 66 69 6c 74 65 |ected_fi|le_filte|
|00003930| 72 20 24 66 69 6c 74 65 | 72 0d 0a 20 20 20 0d 0a |r $filte|r.. ..|
|00003940| 20 20 20 23 20 50 6f 70 | 75 70 20 61 20 73 65 6c | # Pop|up a sel|
|00003950| 65 63 74 69 6f 6e 20 77 | 69 6e 64 6f 77 0d 0a 20 |ection w|indow.. |
|00003960| 20 20 73 65 74 20 77 69 | 6e 64 6f 77 20 2e 66 69 | set wi|ndow .fi|
|00003970| 6c 65 73 65 6c 65 63 74 | 0d 0a 20 20 20 69 66 20 |leselect|.. if |
|00003980| 5b 77 69 6e 66 6f 20 65 | 78 69 73 74 73 20 24 77 |[winfo e|xists $w|
|00003990| 69 6e 64 6f 77 5d 20 7b | 0d 0a 20 20 20 20 20 20 |indow] {|.. |
|000039a0| 20 23 20 50 6f 70 20 69 | 74 20 75 70 21 0d 0a 20 | # Pop i|t up!.. |
|000039b0| 20 20 20 20 20 20 77 6d | 20 64 65 69 63 6f 6e 69 | wm| deiconi|
|000039c0| 66 79 20 24 77 69 6e 64 | 6f 77 0d 0a 20 20 20 20 |fy $wind|ow.. |
|000039d0| 20 20 20 72 61 69 73 65 | 20 24 77 69 6e 64 6f 77 | raise| $window|
|000039e0| 0d 0a 20 20 20 20 20 20 | 20 72 65 74 75 72 6e 0d |.. | return.|
|000039f0| 0a 20 20 20 7d 0d 0a 0d | 0a 20 20 20 23 20 4f 74 |. }...|. # Ot|
|00003a00| 68 65 72 77 69 73 65 20 | 63 72 65 61 74 65 20 74 |herwise |create t|
|00003a10| 68 65 20 77 69 6e 64 6f | 77 0d 0a 20 20 20 74 6f |he windo|w.. to|
|00003a20| 70 6c 65 76 65 6c 20 24 | 77 69 6e 64 6f 77 0d 0a |plevel $|window..|
|00003a30| 20 20 20 77 6d 20 74 69 | 74 6c 65 20 24 77 69 6e | wm ti|tle $win|
|00003a40| 64 6f 77 20 24 74 69 74 | 6c 65 0d 0a 20 20 20 77 |dow $tit|le.. w|
|00003a50| 6d 20 74 72 61 6e 73 69 | 65 6e 74 20 24 77 69 6e |m transi|ent $win|
|00003a60| 64 6f 77 20 2e 0d 0a 0d | 0a 20 20 20 23 20 43 72 |dow ....|. # Cr|
|00003a70| 65 61 74 65 20 61 20 66 | 72 61 6d 65 20 63 6f 6e |eate a f|rame con|
|00003a80| 74 61 69 6e 69 6e 67 20 | 74 68 65 20 66 69 6c 74 |taining |the filt|
|00003a90| 65 72 0d 0a 20 20 20 66 | 72 61 6d 65 20 24 77 69 |er.. f|rame $wi|
|00003aa0| 6e 64 6f 77 2e 66 69 6c | 74 65 72 5f 66 72 20 2d |ndow.fil|ter_fr -|
|00003ab0| 62 6f 72 64 65 72 77 69 | 64 74 68 20 24 52 49 44 |borderwi|dth $RID|
|00003ac0| 47 45 5f 42 4f 52 44 45 | 52 20 2d 72 65 6c 69 65 |GE_BORDE|R -relie|
|00003ad0| 66 20 67 72 6f 6f 76 65 | 0d 0a 20 20 20 70 61 63 |f groove|.. pac|
|00003ae0| 6b 20 24 77 69 6e 64 6f | 77 2e 66 69 6c 74 65 72 |k $windo|w.filter|
|00003af0| 5f 66 72 20 2d 70 61 64 | 78 20 24 44 45 46 41 55 |_fr -pad|x $DEFAU|
|00003b00| 4c 54 5f 50 41 44 44 49 | 4e 47 20 2d 70 61 64 79 |LT_PADDI|NG -pady|
|00003b10| 20 24 44 45 46 41 55 4c | 54 5f 50 41 44 44 49 4e | $DEFAUL|T_PADDIN|
|00003b20| 47 20 5c 0d 0a 20 20 20 | 20 20 20 2d 73 69 64 65 |G \.. | -side|
|00003b30| 20 74 6f 70 20 2d 66 69 | 6c 6c 20 78 0d 0a 20 20 | top -fi|ll x.. |
|00003b40| 20 6c 61 62 65 6c 20 24 | 77 69 6e 64 6f 77 2e 66 | label $|window.f|
|00003b50| 69 6c 74 65 72 5f 66 72 | 2e 6c 61 62 65 6c 20 2d |ilter_fr|.label -|
|00003b60| 74 65 78 74 20 22 46 69 | 6c 74 65 72 22 0d 0a 20 |text "Fi|lter".. |
|00003b70| 20 20 65 6e 74 72 79 20 | 24 77 69 6e 64 6f 77 2e | entry |$window.|
|00003b80| 66 69 6c 74 65 72 5f 66 | 72 2e 65 6e 74 72 79 20 |filter_f|r.entry |
|00003b90| 2d 77 69 64 74 68 20 31 | 35 20 2d 62 67 20 24 54 |-width 1|5 -bg $T|
|00003ba0| 45 58 54 5f 43 4f 4c 4f | 55 52 20 5c 0d 0a 20 20 |EXT_COLO|UR \.. |
|00003bb0| 20 20 20 20 2d 74 65 78 | 74 76 61 72 69 61 62 6c | -tex|tvariabl|
|00003bc0| 65 20 67 5f 73 65 6c 65 | 63 74 65 64 5f 66 69 6c |e g_sele|cted_fil|
|00003bd0| 65 5f 66 69 6c 74 65 72 | 0d 0a 20 20 20 62 75 74 |e_filter|.. but|
|00003be0| 74 6f 6e 20 24 77 69 6e | 64 6f 77 2e 66 69 6c 74 |ton $win|dow.filt|
|00003bf0| 65 72 5f 66 72 2e 66 69 | 6c 74 65 72 20 2d 74 65 |er_fr.fi|lter -te|
|00003c00| 78 74 20 22 46 69 6c 74 | 65 72 22 20 2d 63 6f 6d |xt "Filt|er" -com|
|00003c10| 6d 61 6e 64 20 5c 0d 0a | 20 20 20 20 20 20 4d 48 |mand \..| MH|
|00003c20| 5f 50 6f 70 75 6c 61 74 | 65 46 69 6c 65 53 65 6c |_Populat|eFileSel|
|00003c30| 65 63 74 20 0d 0a 20 20 | 20 70 61 63 6b 20 24 77 |ect .. | pack $w|
|00003c40| 69 6e 64 6f 77 2e 66 69 | 6c 74 65 72 5f 66 72 2e |indow.fi|lter_fr.|
|00003c50| 6c 61 62 65 6c 20 24 77 | 69 6e 64 6f 77 2e 66 69 |label $w|indow.fi|
|00003c60| 6c 74 65 72 5f 66 72 2e | 65 6e 74 72 79 20 5c 0d |lter_fr.|entry \.|
|00003c70| 0a 20 20 20 20 20 20 24 | 77 69 6e 64 6f 77 2e 66 |. $|window.f|
|00003c80| 69 6c 74 65 72 5f 66 72 | 2e 66 69 6c 74 65 72 20 |ilter_fr|.filter |
|00003c90| 2d 73 69 64 65 20 6c 65 | 66 74 20 5c 0d 0a 20 20 |-side le|ft \.. |
|00003ca0| 20 20 20 20 2d 70 61 64 | 78 20 24 44 45 46 41 55 | -pad|x $DEFAU|
|00003cb0| 4c 54 5f 50 41 44 44 49 | 4e 47 20 2d 70 61 64 79 |LT_PADDI|NG -pady|
|00003cc0| 20 24 44 45 46 41 55 4c | 54 5f 50 41 44 44 49 4e | $DEFAUL|T_PADDIN|
|00003cd0| 47 0d 0a 0d 0a 20 20 20 | 23 20 43 72 65 61 74 65 |G.... |# Create|
|00003ce0| 20 74 68 65 20 64 69 72 | 65 63 74 6f 72 79 20 6c | the dir|ectory l|
|00003cf0| 69 73 74 20 61 6e 64 20 | 66 69 6c 65 20 6c 69 73 |ist and |file lis|
|00003d00| 74 0d 0a 20 20 20 66 72 | 61 6d 65 20 24 77 69 6e |t.. fr|ame $win|
|00003d10| 64 6f 77 2e 6c 69 73 74 | 5f 66 72 0d 0a 20 20 20 |dow.list|_fr.. |
|00003d20| 70 61 63 6b 20 24 77 69 | 6e 64 6f 77 2e 6c 69 73 |pack $wi|ndow.lis|
|00003d30| 74 5f 66 72 20 2d 66 69 | 6c 6c 20 62 6f 74 68 20 |t_fr -fi|ll both |
|00003d40| 2d 65 78 70 61 6e 64 20 | 74 72 75 65 0d 0a 09 73 |-expand |true...s|
|00003d50| 65 74 20 64 69 72 6c 69 | 73 74 20 5b 4d 48 5f 53 |et dirli|st [MH_S|
|00003d60| 63 72 6f 6c 6c 65 64 4c | 69 73 74 20 24 77 69 6e |crolledL|ist $win|
|00003d70| 64 6f 77 2e 6c 69 73 74 | 5f 66 72 2e 64 69 72 5f |dow.list|_fr.dir_|
|00003d80| 66 72 20 30 20 31 30 20 | 62 72 6f 77 73 65 20 30 |fr 0 10 |browse 0|
|00003d90| 5d 0d 0a 09 73 65 74 20 | 66 69 6c 65 6c 69 73 74 |]...set |filelist|
|00003da0| 20 5b 4d 48 5f 53 63 72 | 6f 6c 6c 65 64 4c 69 73 | [MH_Scr|olledLis|
|00003db0| 74 20 24 77 69 6e 64 6f | 77 2e 6c 69 73 74 5f 66 |t $windo|w.list_f|
|00003dc0| 72 2e 66 69 6c 65 5f 66 | 72 20 30 20 31 30 20 62 |r.file_f|r 0 10 b|
|00003dd0| 72 6f 77 73 65 20 30 5d | 0d 0a 09 24 64 69 72 6c |rowse 0]|...$dirl|
|00003de0| 69 73 74 20 63 6f 6e 66 | 69 67 75 72 65 20 2d 62 |ist conf|igure -b|
|00003df0| 67 20 24 54 45 58 54 5f | 43 4f 4c 4f 55 52 0d 0a |g $TEXT_|COLOUR..|
|00003e00| 09 24 66 69 6c 65 6c 69 | 73 74 20 63 6f 6e 66 69 |.$fileli|st confi|
|00003e10| 67 75 72 65 20 2d 62 67 | 20 24 54 45 58 54 5f 43 |gure -bg| $TEXT_C|
|00003e20| 4f 4c 4f 55 52 0d 0a 09 | 70 61 63 6b 20 66 6f 72 |OLOUR...|pack for|
|00003e30| 67 65 74 20 24 77 69 6e | 64 6f 77 2e 6c 69 73 74 |get $win|dow.list|
|00003e40| 5f 66 72 2e 64 69 72 5f | 66 72 20 24 77 69 6e 64 |_fr.dir_|fr $wind|
|00003e50| 6f 77 2e 6c 69 73 74 5f | 66 72 2e 66 69 6c 65 5f |ow.list_|fr.file_|
|00003e60| 66 72 0d 0a 09 70 61 63 | 6b 20 24 77 69 6e 64 6f |fr...pac|k $windo|
|00003e70| 77 2e 6c 69 73 74 5f 66 | 72 2e 64 69 72 5f 66 72 |w.list_f|r.dir_fr|
|00003e80| 20 24 77 69 6e 64 6f 77 | 2e 6c 69 73 74 5f 66 72 | $window|.list_fr|
|00003e90| 2e 66 69 6c 65 5f 66 72 | 20 2d 73 69 64 65 20 6c |.file_fr| -side l|
|00003ea0| 65 66 74 20 2d 66 69 6c | 6c 20 5c 0d 0a 20 20 20 |eft -fil|l \.. |
|00003eb0| 20 20 20 62 6f 74 68 20 | 2d 70 61 64 78 20 24 44 | both |-padx $D|
|00003ec0| 45 46 41 55 4c 54 5f 50 | 41 44 44 49 4e 47 20 2d |EFAULT_P|ADDING -|
|00003ed0| 70 61 64 79 20 24 44 45 | 46 41 55 4c 54 5f 50 41 |pady $DE|FAULT_PA|
|00003ee0| 44 44 49 4e 47 20 5c 0d | 0a 20 20 20 20 20 20 2d |DDING \.|. -|
|00003ef0| 65 78 70 61 6e 64 20 74 | 72 75 65 0d 0a 0d 0a 20 |expand t|rue.... |
|00003f00| 20 20 23 20 43 72 65 61 | 74 65 20 61 20 66 72 61 | # Crea|te a fra|
|00003f10| 6d 65 20 74 6f 20 64 69 | 73 70 6c 61 79 20 74 68 |me to di|splay th|
|00003f20| 65 20 63 75 72 72 65 6e | 74 20 64 69 72 65 63 74 |e curren|t direct|
|00003f30| 6f 72 79 0d 0a 20 20 20 | 66 72 61 6d 65 20 24 77 |ory.. |frame $w|
|00003f40| 69 6e 64 6f 77 2e 64 69 | 72 5f 66 72 20 2d 62 6f |indow.di|r_fr -bo|
|00003f50| 72 64 65 72 77 69 64 74 | 68 20 24 52 49 44 47 45 |rderwidt|h $RIDGE|
|00003f60| 5f 42 4f 52 44 45 52 20 | 2d 72 65 6c 69 65 66 20 |_BORDER |-relief |
|00003f70| 67 72 6f 6f 76 65 0d 0a | 20 20 20 70 61 63 6b 20 |groove..| pack |
|00003f80| 24 77 69 6e 64 6f 77 2e | 64 69 72 5f 66 72 20 2d |$window.|dir_fr -|
|00003f90| 70 61 64 78 20 24 44 45 | 46 41 55 4c 54 5f 50 41 |padx $DE|FAULT_PA|
|00003fa0| 44 44 49 4e 47 20 2d 70 | 61 64 79 20 24 44 45 46 |DDING -p|ady $DEF|
|00003fb0| 41 55 4c 54 5f 50 41 44 | 44 49 4e 47 20 5c 0d 0a |AULT_PAD|DING \..|
|00003fc0| 20 20 20 20 20 20 2d 73 | 69 64 65 20 74 6f 70 20 | -s|ide top |
|00003fd0| 2d 66 69 6c 6c 20 78 0d | 0a 20 20 20 6c 61 62 65 |-fill x.|. labe|
|00003fe0| 6c 20 24 77 69 6e 64 6f | 77 2e 64 69 72 5f 66 72 |l $windo|w.dir_fr|
|00003ff0| 2e 6c 61 62 65 6c 20 2d | 74 65 78 74 20 22 44 69 |.label -|text "Di|
|00004000| 72 65 63 74 6f 72 79 20 | 3a 20 22 0d 0a 20 20 20 |rectory |: ".. |
|00004010| 6c 61 62 65 6c 20 24 77 | 69 6e 64 6f 77 2e 64 69 |label $w|indow.di|
|00004020| 72 5f 66 72 2e 64 69 72 | 20 0d 0a 20 20 20 70 61 |r_fr.dir| .. pa|
|00004030| 63 6b 20 24 77 69 6e 64 | 6f 77 2e 64 69 72 5f 66 |ck $wind|ow.dir_f|
|00004040| 72 2e 6c 61 62 65 6c 20 | 24 77 69 6e 64 6f 77 2e |r.label |$window.|
|00004050| 64 69 72 5f 66 72 2e 64 | 69 72 20 2d 73 69 64 65 |dir_fr.d|ir -side|
|00004060| 20 6c 65 66 74 20 5c 0d | 0a 20 20 20 20 20 20 2d | left \.|. -|
|00004070| 70 61 64 78 20 24 44 45 | 46 41 55 4c 54 5f 50 41 |padx $DE|FAULT_PA|
|00004080| 44 44 49 4e 47 20 2d 70 | 61 64 79 20 24 44 45 46 |DDING -p|ady $DEF|
|00004090| 41 55 4c 54 5f 50 41 44 | 44 49 4e 47 20 2d 66 69 |AULT_PAD|DING -fi|
|000040a0| 6c 6c 20 78 0d 0a 0d 0a | 20 20 20 23 20 43 72 65 |ll x....| # Cre|
|000040b0| 61 74 65 20 61 20 66 72 | 61 6d 65 20 63 6f 6e 74 |ate a fr|ame cont|
|000040c0| 61 69 6e 69 6e 67 20 61 | 6e 20 65 6e 74 72 79 20 |aining a|n entry |
|000040d0| 66 69 65 6c 64 0d 0a 20 | 20 20 66 72 61 6d 65 20 |field.. | frame |
|000040e0| 24 77 69 6e 64 6f 77 2e | 73 65 6c 5f 66 72 20 2d |$window.|sel_fr -|
|000040f0| 62 6f 72 64 65 72 77 69 | 64 74 68 20 24 52 49 44 |borderwi|dth $RID|
|00004100| 47 45 5f 42 4f 52 44 45 | 52 20 2d 72 65 6c 69 65 |GE_BORDE|R -relie|
|00004110| 66 20 67 72 6f 6f 76 65 | 0d 0a 20 20 20 70 61 63 |f groove|.. pac|
|00004120| 6b 20 24 77 69 6e 64 6f | 77 2e 73 65 6c 5f 66 72 |k $windo|w.sel_fr|
|00004130| 20 2d 70 61 64 78 20 24 | 44 45 46 41 55 4c 54 5f | -padx $|DEFAULT_|
|00004140| 50 41 44 44 49 4e 47 20 | 2d 70 61 64 79 20 24 44 |PADDING |-pady $D|
|00004150| 45 46 41 55 4c 54 5f 50 | 41 44 44 49 4e 47 20 5c |EFAULT_P|ADDING \|
|00004160| 0d 0a 20 20 20 20 20 20 | 2d 73 69 64 65 20 74 6f |.. |-side to|
|00004170| 70 20 2d 66 69 6c 6c 20 | 78 0d 0a 20 20 20 6c 61 |p -fill |x.. la|
|00004180| 62 65 6c 20 24 77 69 6e | 64 6f 77 2e 73 65 6c 5f |bel $win|dow.sel_|
|00004190| 66 72 2e 6c 61 62 65 6c | 20 2d 74 65 78 74 20 22 |fr.label| -text "|
|000041a0| 46 69 6c 65 22 0d 0a 20 | 20 20 73 65 74 20 65 6e |File".. | set en|
|000041b0| 74 72 79 20 5b 65 6e 74 | 72 79 20 24 77 69 6e 64 |try [ent|ry $wind|
|000041c0| 6f 77 2e 73 65 6c 5f 66 | 72 2e 65 6e 74 72 79 20 |ow.sel_f|r.entry |
|000041d0| 2d 77 69 64 74 68 20 33 | 30 20 2d 62 67 20 24 54 |-width 3|0 -bg $T|
|000041e0| 45 58 54 5f 43 4f 4c 4f | 55 52 5d 0d 0a 20 20 20 |EXT_COLO|UR].. |
|000041f0| 70 61 63 6b 20 24 77 69 | 6e 64 6f 77 2e 73 65 6c |pack $wi|ndow.sel|
|00004200| 5f 66 72 2e 6c 61 62 65 | 6c 20 24 77 69 6e 64 6f |_fr.labe|l $windo|
|00004210| 77 2e 73 65 6c 5f 66 72 | 2e 65 6e 74 72 79 20 2d |w.sel_fr|.entry -|
|00004220| 73 69 64 65 20 6c 65 66 | 74 20 5c 0d 0a 20 20 20 |side lef|t \.. |
|00004230| 20 20 20 2d 70 61 64 78 | 20 24 44 45 46 41 55 4c | -padx| $DEFAUL|
|00004240| 54 5f 50 41 44 44 49 4e | 47 20 2d 70 61 64 79 20 |T_PADDIN|G -pady |
|00004250| 24 44 45 46 41 55 4c 54 | 5f 50 41 44 44 49 4e 47 |$DEFAULT|_PADDING|
|00004260| 20 2d 66 69 6c 6c 20 78 | 0d 0a 0d 0a 20 20 20 23 | -fill x|.... #|
|00004270| 20 41 6e 64 20 61 64 64 | 20 62 75 74 74 6f 6e 73 | And add| buttons|
|00004280| 20 74 6f 20 74 68 65 20 | 77 69 6e 64 6f 77 0d 0a | to the |window..|
|00004290| 20 20 20 73 65 74 20 66 | 72 61 6d 65 20 5b 66 72 | set f|rame [fr|
|000042a0| 61 6d 65 20 24 77 69 6e | 64 6f 77 2e 62 75 74 74 |ame $win|dow.butt|
|000042b0| 6f 6e 5f 66 72 5d 0d 0a | 20 20 20 70 61 63 6b 20 |on_fr]..| pack |
|000042c0| 24 66 72 61 6d 65 20 2d | 73 69 64 65 20 62 6f 74 |$frame -|side bot|
|000042d0| 74 6f 6d 20 2d 66 69 6c | 6c 20 78 0d 0a 20 20 20 |tom -fil|l x.. |
|000042e0| 62 75 74 74 6f 6e 20 24 | 66 72 61 6d 65 2e 63 6c |button $|frame.cl|
|000042f0| 6f 73 65 20 2d 74 65 78 | 74 20 43 61 6e 63 65 6c |ose -tex|t Cancel|
|00004300| 20 2d 63 6f 6d 6d 61 6e | 64 20 7b 0d 0a 20 20 20 | -comman|d {.. |
|00004310| 20 20 20 64 65 73 74 72 | 6f 79 20 2e 66 69 6c 65 | destr|oy .file|
|00004320| 73 65 6c 65 63 74 0d 0a | 20 20 20 20 20 20 73 65 |select..| se|
|00004330| 74 20 67 5f 73 65 6c 65 | 63 74 65 64 5f 66 69 6c |t g_sele|cted_fil|
|00004340| 65 20 22 22 0d 0a 20 20 | 20 7d 0d 0a 20 20 20 62 |e "".. | }.. b|
|00004350| 75 74 74 6f 6e 20 24 66 | 72 61 6d 65 2e 6f 6b 20 |utton $f|rame.ok |
|00004360| 2d 74 65 78 74 20 4f 4b | 20 2d 63 6f 6d 6d 61 6e |-text OK| -comman|
|00004370| 64 20 7b 0d 0a 20 20 20 | 20 20 20 73 65 74 20 66 |d {.. | set f|
|00004380| 69 6c 65 20 5b 2e 66 69 | 6c 65 73 65 6c 65 63 74 |ile [.fi|leselect|
|00004390| 2e 73 65 6c 5f 66 72 2e | 65 6e 74 72 79 20 67 65 |.sel_fr.|entry ge|
|000043a0| 74 5d 0d 0a 20 20 20 20 | 20 20 73 65 74 20 64 69 |t].. | set di|
|000043b0| 72 20 5b 70 77 64 5d 0d | 0a 20 20 20 20 20 20 73 |r [pwd].|. s|
|000043c0| 65 74 20 67 5f 73 65 6c | 65 63 74 65 64 5f 66 69 |et g_sel|ected_fi|
|000043d0| 6c 65 20 22 24 64 69 72 | 2f 24 66 69 6c 65 22 0d |le "$dir|/$file".|
|000043e0| 0a 20 20 20 20 20 20 64 | 65 73 74 72 6f 79 20 2e |. d|estroy .|
|000043f0| 66 69 6c 65 73 65 6c 65 | 63 74 0d 0a 20 20 20 7d |filesele|ct.. }|
|00004400| 0d 0a 20 20 20 62 69 6e | 64 20 24 77 69 6e 64 6f |.. bin|d $windo|
|00004410| 77 2e 73 65 6c 5f 66 72 | 2e 65 6e 74 72 79 20 3c |w.sel_fr|.entry <|
|00004420| 52 65 74 75 72 6e 3e 20 | 22 24 66 72 61 6d 65 2e |Return> |"$frame.|
|00004430| 6f 6b 20 69 6e 76 6f 6b | 65 22 0d 0a 20 20 20 70 |ok invok|e".. p|
|00004440| 61 63 6b 20 24 66 72 61 | 6d 65 2e 6f 6b 20 24 66 |ack $fra|me.ok $f|
|00004450| 72 61 6d 65 2e 63 6c 6f | 73 65 20 2d 73 69 64 65 |rame.clo|se -side|
|00004460| 20 72 69 67 68 74 20 2d | 70 61 64 78 20 24 44 45 | right -|padx $DE|
|00004470| 46 41 55 4c 54 5f 50 41 | 44 44 49 4e 47 20 2d 70 |FAULT_PA|DDING -p|
|00004480| 61 64 79 20 5c 0d 0a 20 | 20 20 20 20 20 24 44 45 |ady \.. | $DE|
|00004490| 46 41 55 4c 54 5f 50 41 | 44 44 49 4e 47 0d 0a 0d |FAULT_PA|DDING...|
|000044a0| 0a 20 20 20 23 20 52 65 | 74 72 69 65 76 65 20 74 |. # Re|trieve t|
|000044b0| 68 65 20 6c 69 73 74 0d | 0a 20 20 20 4d 48 5f 50 |he list.|. MH_P|
|000044c0| 6f 70 75 6c 61 74 65 46 | 69 6c 65 53 65 6c 65 63 |opulateF|ileSelec|
|000044d0| 74 0d 0a 0d 0a 20 20 20 | 23 20 41 6e 64 20 6e 6f |t.... |# And no|
|000044e0| 77 20 63 65 6e 74 72 65 | 20 69 74 20 6f 6e 20 69 |w centre| it on i|
|000044f0| 74 73 20 70 61 72 65 6e | 74 0d 0a 20 20 20 4d 48 |ts paren|t.. MH|
|00004500| 5f 43 65 6e 74 72 65 44 | 69 61 6c 6f 67 20 24 77 |_CentreD|ialog $w|
|00004510| 69 6e 64 6f 77 20 77 69 | 64 67 65 74 20 2e 0d 0a |indow wi|dget ...|
|00004520| 20 20 20 66 6f 63 75 73 | 20 24 77 69 6e 64 6f 77 | focus| $window|
|00004530| 2e 73 65 6c 5f 66 72 2e | 65 6e 74 72 79 0d 0a 0d |.sel_fr.|entry...|
|00004540| 0a 20 20 20 23 20 41 64 | 64 20 62 69 6e 64 69 6e |. # Ad|d bindin|
|00004550| 67 73 20 6f 6e 20 6c 69 | 73 74 0d 0a 09 62 69 6e |gs on li|st...bin|
|00004560| 64 20 24 64 69 72 6c 69 | 73 74 20 3c 44 6f 75 62 |d $dirli|st <Doub|
|00004570| 6c 65 2d 42 75 74 74 6f | 6e 52 65 6c 65 61 73 65 |le-Butto|nRelease|
|00004580| 2d 31 3e 20 7b 0d 0a 20 | 20 20 20 20 20 73 65 74 |-1> {.. | set|
|00004590| 20 70 61 67 65 20 5b 2e | 66 69 6c 65 73 65 6c 65 | page [.|filesele|
|000045a0| 63 74 2e 6c 69 73 74 5f | 66 72 2e 64 69 72 5f 66 |ct.list_|fr.dir_f|
|000045b0| 72 2e 6c 69 73 74 20 67 | 65 74 20 5c 0d 0a 20 20 |r.list g|et \.. |
|000045c0| 20 20 20 20 20 20 20 5b | 2e 66 69 6c 65 73 65 6c | [|.filesel|
|000045d0| 65 63 74 2e 6c 69 73 74 | 5f 66 72 2e 64 69 72 5f |ect.list|_fr.dir_|
|000045e0| 66 72 2e 6c 69 73 74 20 | 63 75 72 73 65 6c 65 63 |fr.list |curselec|
|000045f0| 74 69 6f 6e 5d 5d 0d 0a | 20 20 20 20 20 20 69 66 |tion]]..| if|
|00004600| 20 7b 24 70 61 67 65 20 | 3d 3d 20 22 2e 2e 22 7d | {$page |== ".."}|
|00004610| 20 7b 63 64 20 2e 2e 7d | 20 65 6c 73 65 20 7b 63 | {cd ..}| else {c|
|00004620| 64 20 24 70 61 67 65 7d | 0d 0a 20 20 20 20 20 20 |d $page}|.. |
|00004630| 4d 48 5f 50 6f 70 75 6c | 61 74 65 46 69 6c 65 53 |MH_Popul|ateFileS|
|00004640| 65 6c 65 63 74 0d 0a 20 | 20 20 7d 0d 0a 09 62 69 |elect.. | }...bi|
|00004650| 6e 64 20 24 66 69 6c 65 | 6c 69 73 74 20 3c 44 6f |nd $file|list <Do|
|00004660| 75 62 6c 65 2d 42 75 74 | 74 6f 6e 52 65 6c 65 61 |uble-But|tonRelea|
|00004670| 73 65 2d 31 3e 20 7b 0d | 0a 20 20 20 20 20 20 73 |se-1> {.|. s|
|00004680| 65 74 20 70 61 67 65 20 | 5b 2e 66 69 6c 65 73 65 |et page |[.filese|
|00004690| 6c 65 63 74 2e 6c 69 73 | 74 5f 66 72 2e 66 69 6c |lect.lis|t_fr.fil|
|000046a0| 65 5f 66 72 2e 6c 69 73 | 74 20 67 65 74 20 5c 0d |e_fr.lis|t get \.|
|000046b0| 0a 20 20 20 20 20 20 20 | 20 20 5b 2e 66 69 6c 65 |. | [.file|
|000046c0| 73 65 6c 65 63 74 2e 6c | 69 73 74 5f 66 72 2e 66 |select.l|ist_fr.f|
|000046d0| 69 6c 65 5f 66 72 2e 6c | 69 73 74 20 63 75 72 73 |ile_fr.l|ist curs|
|000046e0| 65 6c 65 63 74 69 6f 6e | 5d 5d 0d 0a 20 20 20 20 |election|]].. |
|000046f0| 20 20 61 66 74 65 72 20 | 34 30 30 20 64 65 73 74 | after |400 dest|
|00004700| 72 6f 79 20 2e 66 69 6c | 65 73 65 6c 65 63 74 0d |roy .fil|eselect.|
|00004710| 0a 20 20 20 20 20 20 73 | 65 74 20 64 69 72 20 5b |. s|et dir [|
|00004720| 70 77 64 5d 0d 0a 20 20 | 20 20 20 20 73 65 74 20 |pwd].. | set |
|00004730| 67 5f 73 65 6c 65 63 74 | 65 64 5f 66 69 6c 65 20 |g_select|ed_file |
|00004740| 22 24 64 69 72 2f 24 70 | 61 67 65 22 0d 0a 20 20 |"$dir/$p|age".. |
|00004750| 20 7d 0d 0a 09 62 69 6e | 64 20 24 66 69 6c 65 6c | }...bin|d $filel|
|00004760| 69 73 74 20 3c 42 75 74 | 74 6f 6e 52 65 6c 65 61 |ist <But|tonRelea|
|00004770| 73 65 2d 31 3e 20 7b 0d | 0a 20 20 20 20 20 20 73 |se-1> {.|. s|
|00004780| 65 74 20 70 61 67 65 20 | 5b 2e 66 69 6c 65 73 65 |et page |[.filese|
|00004790| 6c 65 63 74 2e 6c 69 73 | 74 5f 66 72 2e 66 69 6c |lect.lis|t_fr.fil|
|000047a0| 65 5f 66 72 2e 6c 69 73 | 74 20 67 65 74 20 5c 0d |e_fr.lis|t get \.|
|000047b0| 0a 20 20 20 20 20 20 20 | 20 20 5b 2e 66 69 6c 65 |. | [.file|
|000047c0| 73 65 6c 65 63 74 2e 6c | 69 73 74 5f 66 72 2e 66 |select.l|ist_fr.f|
|000047d0| 69 6c 65 5f 66 72 2e 6c | 69 73 74 20 63 75 72 73 |ile_fr.l|ist curs|
|000047e0| 65 6c 65 63 74 69 6f 6e | 5d 5d 0d 0a 20 20 20 20 |election|]].. |
|000047f0| 20 20 2e 66 69 6c 65 73 | 65 6c 65 63 74 2e 73 65 | .files|elect.se|
|00004800| 6c 5f 66 72 2e 65 6e 74 | 72 79 20 64 65 6c 65 74 |l_fr.ent|ry delet|
|00004810| 65 20 30 20 65 6e 64 0d | 0a 20 20 20 20 20 20 2e |e 0 end.|. .|
|00004820| 66 69 6c 65 73 65 6c 65 | 63 74 2e 73 65 6c 5f 66 |filesele|ct.sel_f|
|00004830| 72 2e 65 6e 74 72 79 20 | 69 6e 73 65 72 74 20 65 |r.entry |insert e|
|00004840| 6e 64 20 22 24 70 61 67 | 65 22 0d 0a 20 20 20 7d |nd "$pag|e".. }|
|00004850| 0d 0a 0d 0a 20 20 20 23 | 20 57 61 69 74 20 66 6f |.... #| Wait fo|
|00004860| 72 20 64 65 73 74 72 75 | 63 74 69 6f 6e 20 6f 66 |r destru|ction of|
|00004870| 20 77 69 6e 64 6f 77 0d | 0a 20 20 20 74 6b 77 61 | window.|. tkwa|
|00004880| 69 74 20 76 61 72 69 61 | 62 6c 65 20 67 5f 73 65 |it varia|ble g_se|
|00004890| 6c 65 63 74 65 64 5f 66 | 69 6c 65 0d 0a 20 20 20 |lected_f|ile.. |
|000048a0| 72 65 74 75 72 6e 20 24 | 67 5f 73 65 6c 65 63 74 |return $|g_select|
|000048b0| 65 64 5f 66 69 6c 65 0d | 0a 7d 0d 0a 0d 0a 23 23 |ed_file.|.}....##|
|000048c0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000048d0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000048e0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000048f0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 0d 0a 23 |########|#####..#|
|00004900| 20 54 68 65 20 70 72 6f | 63 65 64 75 72 65 20 66 | The pro|cedure f|
|00004910| 6f 72 20 73 65 6c 65 63 | 74 69 6e 67 20 61 20 66 |or selec|ting a f|
|00004920| 69 6c 65 0d 0a 70 72 6f | 63 20 4d 48 5f 50 6f 70 |ile..pro|c MH_Pop|
|00004930| 75 6c 61 74 65 46 69 6c | 65 53 65 6c 65 63 74 20 |ulateFil|eSelect |
|00004940| 7b 20 7d 20 7b 0d 0a 0d | 0a 20 20 20 23 20 47 6c |{ } {...|. # Gl|
|00004950| 6f 62 61 6c 73 20 0d 0a | 20 20 20 67 6c 6f 62 61 |obals ..| globa|
|00004960| 6c 20 67 5f 73 65 6c 65 | 63 74 65 64 5f 66 69 6c |l g_sele|cted_fil|
|00004970| 65 5f 66 69 6c 74 65 72 | 20 0d 0a 20 20 20 73 65 |e_filter| .. se|
|00004980| 74 20 66 69 6c 74 65 72 | 20 24 67 5f 73 65 6c 65 |t filter| $g_sele|
|00004990| 63 74 65 64 5f 66 69 6c | 65 5f 66 69 6c 74 65 72 |cted_fil|e_filter|
|000049a0| 0d 0a 0d 0a 20 20 20 23 | 20 52 65 74 72 69 65 76 |.... #| Retriev|
|000049b0| 65 20 6e 65 77 20 69 6e | 66 6f 72 6d 61 74 69 6f |e new in|formatio|
|000049c0| 6e 0d 0a 20 20 20 73 65 | 74 20 66 69 6c 65 73 20 |n.. se|t files |
|000049d0| 5b 6c 73 6f 72 74 20 5b | 67 6c 6f 62 20 2d 6e 6f |[lsort [|glob -no|
|000049e0| 63 6f 6d 70 6c 61 69 6e | 20 24 66 69 6c 74 65 72 |complain| $filter|
|000049f0| 5d 5d 0d 0a 20 20 20 73 | 65 74 20 64 69 72 73 20 |]].. s|et dirs |
|00004a00| 5b 6c 73 6f 72 74 20 5b | 67 6c 6f 62 20 2d 6e 6f |[lsort [|glob -no|
|00004a10| 63 6f 6d 70 6c 61 69 6e | 20 22 2a 22 5d 5d 0d 0a |complain| "*"]]..|
|00004a20| 20 20 20 2e 66 69 6c 65 | 73 65 6c 65 63 74 2e 6c | .file|select.l|
|00004a30| 69 73 74 5f 66 72 2e 64 | 69 72 5f 66 72 2e 6c 69 |ist_fr.d|ir_fr.li|
|00004a40| 73 74 20 64 65 6c 65 74 | 65 20 30 20 65 6e 64 0d |st delet|e 0 end.|
|00004a50| 0a 20 20 20 2e 66 69 6c | 65 73 65 6c 65 63 74 2e |. .fil|eselect.|
|00004a60| 6c 69 73 74 5f 66 72 2e | 64 69 72 5f 66 72 2e 6c |list_fr.|dir_fr.l|
|00004a70| 69 73 74 20 69 6e 73 65 | 72 74 20 65 6e 64 20 22 |ist inse|rt end "|
|00004a80| 2e 2e 22 0d 0a 20 20 20 | 2e 66 69 6c 65 73 65 6c |..".. |.filesel|
|00004a90| 65 63 74 2e 6c 69 73 74 | 5f 66 72 2e 66 69 6c 65 |ect.list|_fr.file|
|00004aa0| 5f 66 72 2e 6c 69 73 74 | 20 64 65 6c 65 74 65 20 |_fr.list| delete |
|00004ab0| 30 20 65 6e 64 0d 0a 0d | 0a 20 20 20 23 20 4c 6f |0 end...|. # Lo|
|00004ac0| 6f 70 20 74 68 72 6f 75 | 67 68 20 72 65 74 75 72 |op throu|gh retur|
|00004ad0| 6e 65 64 20 69 74 65 6d | 73 0d 0a 20 20 20 66 6f |ned item|s.. fo|
|00004ae0| 72 65 61 63 68 20 66 69 | 6c 65 20 24 66 69 6c 65 |reach fi|le $file|
|00004af0| 73 20 7b 0d 0a 20 20 20 | 20 20 20 69 66 20 21 5b |s {.. | if ![|
|00004b00| 66 69 6c 65 20 69 73 64 | 69 72 65 63 74 6f 72 79 |file isd|irectory|
|00004b10| 20 24 66 69 6c 65 5d 20 | 7b 0d 0a 20 20 20 20 20 | $file] |{.. |
|00004b20| 20 20 20 20 2e 66 69 6c | 65 73 65 6c 65 63 74 2e | .fil|eselect.|
|00004b30| 6c 69 73 74 5f 66 72 2e | 66 69 6c 65 5f 66 72 2e |list_fr.|file_fr.|
|00004b40| 6c 69 73 74 20 69 6e 73 | 65 72 74 20 65 6e 64 20 |list ins|ert end |
|00004b50| 24 66 69 6c 65 0d 0a 20 | 20 20 20 20 20 7d 0d 0a |$file.. | }..|
|00004b60| 20 20 20 7d 0d 0a 20 20 | 20 66 6f 72 65 61 63 68 | }.. | foreach|
|00004b70| 20 66 69 6c 65 20 24 64 | 69 72 73 20 7b 0d 0a 20 | file $d|irs {.. |
|00004b80| 20 20 20 20 20 69 66 20 | 5b 66 69 6c 65 20 69 73 | if |[file is|
|00004b90| 64 69 72 65 63 74 6f 72 | 79 20 24 66 69 6c 65 5d |director|y $file]|
|00004ba0| 20 7b 0d 0a 20 20 20 20 | 20 20 20 20 20 2e 66 69 | {.. | .fi|
|00004bb0| 6c 65 73 65 6c 65 63 74 | 2e 6c 69 73 74 5f 66 72 |leselect|.list_fr|
|00004bc0| 2e 64 69 72 5f 66 72 2e | 6c 69 73 74 20 69 6e 73 |.dir_fr.|list ins|
|00004bd0| 65 72 74 20 65 6e 64 20 | 24 66 69 6c 65 0d 0a 20 |ert end |$file.. |
|00004be0| 20 20 20 20 20 7d 0d 0a | 20 20 20 7d 0d 0a 0d 0a | }..| }....|
|00004bf0| 20 20 20 23 20 53 65 74 | 20 74 68 65 20 63 75 72 | # Set| the cur|
|00004c00| 72 65 6e 74 20 64 69 72 | 65 63 74 6f 72 79 0d 0a |rent dir|ectory..|
|00004c10| 20 20 20 2e 66 69 6c 65 | 73 65 6c 65 63 74 2e 64 | .file|select.d|
|00004c20| 69 72 5f 66 72 2e 64 69 | 72 20 63 6f 6e 66 69 67 |ir_fr.di|r config|
|00004c30| 75 72 65 20 2d 74 65 78 | 74 20 5b 70 77 64 5d 0d |ure -tex|t [pwd].|
|00004c40| 0a 7d 0d 0a 0d 0a 23 23 | 23 23 23 23 23 23 23 23 |.}....##|########|
|00004c50| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004c60| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004c70| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004c80| 23 23 23 23 23 0d 0a 23 | 20 50 72 6f 63 65 64 75 |#####..#| Procedu|
|00004c90| 72 65 20 74 6f 20 6f 70 | 65 6e 20 61 20 68 65 6c |re to op|en a hel|
|00004ca0| 70 20 66 69 6c 65 0d 0a | 70 72 6f 63 20 4d 48 5f |p file..|proc MH_|
|00004cb0| 4f 70 65 6e 50 72 6f 6a | 65 63 74 20 7b 20 7d 20 |OpenProj|ect { } |
|00004cc0| 7b 0d 0a 0d 0a 20 20 20 | 23 20 47 6c 6f 62 61 6c |{.... |# Global|
|00004cd0| 73 0d 0a 20 20 20 67 6c | 6f 62 61 6c 20 52 49 44 |s.. gl|obal RID|
|00004ce0| 47 45 5f 42 4f 52 44 45 | 52 20 44 45 46 41 55 4c |GE_BORDE|R DEFAUL|
|00004cf0| 54 5f 50 41 44 44 49 4e | 47 20 54 45 58 54 5f 43 |T_PADDIN|G TEXT_C|
|00004d00| 4f 4c 4f 55 52 20 5c 0d | 0a 20 20 20 20 20 20 67 |OLOUR \.|. g|
|00004d10| 62 5f 63 75 72 72 65 6e | 74 5f 70 61 67 65 5f 63 |b_curren|t_page_c|
|00004d20| 68 61 6e 67 65 64 20 67 | 62 5f 70 72 6f 6a 65 63 |hanged g|b_projec|
|00004d30| 74 5f 63 68 61 6e 67 65 | 64 20 5c 0d 0a 20 20 20 |t_change|d \.. |
|00004d40| 20 20 20 67 73 5f 63 75 | 72 72 65 6e 74 5f 70 72 | gs_cu|rrent_pr|
|00004d50| 6f 6a 65 63 74 0d 0a 0d | 0a 20 20 20 23 20 43 68 |oject...|. # Ch|
|00004d60| 65 63 6b 20 66 6f 72 20 | 63 68 61 6e 67 65 73 20 |eck for |changes |
|00004d70| 74 6f 20 74 68 65 20 70 | 72 6f 6a 65 63 74 0d 0a |to the p|roject..|
|00004d80| 20 20 20 69 66 20 7b 24 | 67 62 5f 63 75 72 72 65 | if {$|gb_curre|
|00004d90| 6e 74 5f 70 61 67 65 5f | 63 68 61 6e 67 65 64 20 |nt_page_|changed |
|00004da0| 7c 7c 20 24 67 62 5f 70 | 72 6f 6a 65 63 74 5f 63 ||| $gb_p|roject_c|
|00004db0| 68 61 6e 67 65 64 7d 20 | 7b 0d 0a 20 20 20 20 20 |hanged} |{.. |
|00004dc0| 20 69 66 20 5b 4d 48 5f | 51 75 65 73 74 69 6f 6e | if [MH_|Question|
|00004dd0| 44 69 61 6c 6f 67 20 2e | 20 22 54 68 65 20 70 72 |Dialog .| "The pr|
|00004de0| 6f 6a 65 63 74 20 68 61 | 73 20 63 68 61 6e 67 65 |oject ha|s change|
|00004df0| 64 2e 20 20 44 6f 0d 0a | 79 6f 75 20 77 69 73 68 |d. Do..|you wish|
|00004e00| 20 74 6f 20 64 69 73 63 | 61 72 64 20 63 68 61 6e | to disc|ard chan|
|00004e10| 67 65 73 3f 22 20 22 44 | 69 73 63 61 72 64 22 20 |ges?" "D|iscard" |
|00004e20| 22 43 61 6e 63 65 6c 22 | 5d 20 7b 0d 0a 20 20 20 |"Cancel"|] {.. |
|00004e30| 20 20 20 20 20 20 23 20 | 55 73 65 72 20 72 65 71 | # |User req|
|00004e40| 75 65 73 74 65 64 20 63 | 61 6e 63 65 6c 0d 0a 20 |uested c|ancel.. |
|00004e50| 20 20 20 20 20 20 20 20 | 72 65 74 75 72 6e 0d 0a | |return..|
|00004e60| 20 20 20 20 20 20 7d 0d | 0a 20 20 20 7d 0d 0a 0d | }.|. }...|
|00004e70| 0a 20 20 20 23 20 50 72 | 6f 6d 70 74 20 66 6f 72 |. # Pr|ompt for|
|00004e80| 20 74 68 65 20 70 72 6f | 6a 65 63 74 20 74 6f 20 | the pro|ject to |
|00004e90| 6f 70 65 6e 0d 0a 20 20 | 20 73 65 74 20 67 73 5f |open.. | set gs_|
|00004ea0| 63 75 72 72 65 6e 74 5f | 70 72 6f 6a 65 63 74 20 |current_|project |
|00004eb0| 5b 4d 48 5f 46 69 6c 65 | 53 65 6c 65 63 74 20 22 |[MH_File|Select "|
|00004ec0| 4f 70 65 6e 20 50 72 6f | 6a 65 63 74 22 5d 0d 0a |Open Pro|ject"]..|
|00004ed0| 20 20 20 69 66 20 7b 24 | 67 73 5f 63 75 72 72 65 | if {$|gs_curre|
|00004ee0| 6e 74 5f 70 72 6f 6a 65 | 63 74 20 21 3d 20 22 22 |nt_proje|ct != ""|
|00004ef0| 7d 20 7b 4d 48 5f 52 65 | 61 64 50 72 6f 6a 65 63 |} {MH_Re|adProjec|
|00004f00| 74 7d 0d 0a 7d 0d 0a 0d | 0a 23 23 23 23 23 23 23 |t}..}...|.#######|
|00004f10| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004f20| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004f30| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004f40| 23 23 23 23 23 23 23 23 | 0d 0a 23 20 50 72 6f 63 |########|..# Proc|
|00004f50| 65 64 75 72 65 20 74 6f | 20 6f 70 65 6e 20 61 20 |edure to| open a |
|00004f60| 68 65 6c 70 20 66 69 6c | 65 0d 0a 70 72 6f 63 20 |help fil|e..proc |
|00004f70| 4d 48 5f 52 65 61 64 50 | 72 6f 6a 65 63 74 20 7b |MH_ReadP|roject {|
|00004f80| 20 7d 20 7b 0d 0a 0d 0a | 20 20 20 23 20 47 6c 6f | } {....| # Glo|
|00004f90| 62 61 6c 73 0d 0a 20 20 | 20 67 6c 6f 62 61 6c 20 |bals.. | global |
|00004fa0| 67 61 73 5f 70 61 67 65 | 73 20 67 73 5f 63 75 72 |gas_page|s gs_cur|
|00004fb0| 72 65 6e 74 5f 70 72 6f | 6a 65 63 74 20 67 61 73 |rent_pro|ject gas|
|00004fc0| 5f 68 69 73 74 6f 72 79 | 20 5c 0d 0a 20 20 20 20 |_history| \.. |
|00004fd0| 20 20 67 74 5f 6d 69 6e | 69 5f 68 65 6c 70 20 67 | gt_min|i_help g|
|00004fe0| 62 5f 63 75 72 72 65 6e | 74 5f 70 61 67 65 5f 63 |b_curren|t_page_c|
|00004ff0| 68 61 6e 67 65 64 20 5c | 0d 0a 20 20 20 20 20 20 |hanged \|.. |
|00005000| 67 62 5f 70 72 6f 6a 65 | 63 74 5f 63 68 61 6e 67 |gb_proje|ct_chang|
|00005010| 65 64 0d 0a 0d 0a 20 20 | 20 23 20 47 65 74 20 74 |ed.... | # Get t|
|00005020| 68 65 20 66 69 6c 65 20 | 6e 61 6d 65 0d 0a 20 20 |he file |name.. |
|00005030| 20 73 65 74 20 66 69 6c | 65 20 24 67 73 5f 63 75 | set fil|e $gs_cu|
|00005040| 72 72 65 6e 74 5f 70 72 | 6f 6a 65 63 74 0d 0a 20 |rrent_pr|oject.. |
|00005050| 20 20 69 66 20 7b 5b 66 | 69 6c 65 20 65 78 69 73 | if {[f|ile exis|
|00005060| 74 73 20 24 66 69 6c 65 | 5d 20 3d 3d 20 31 7d 20 |ts $file|] == 1} |
|00005070| 7b 0d 0a 20 20 20 20 20 | 20 23 20 49 66 20 63 75 |{.. | # If cu|
|00005080| 72 72 65 6e 74 20 69 6e | 66 6f 72 6d 61 74 69 6f |rrent in|formatio|
|00005090| 6e 20 65 78 69 73 74 73 | 2c 20 64 65 6c 65 74 65 |n exists|, delete|
|000050a0| 20 69 74 2e 0d 0a 20 20 | 20 20 20 20 73 65 74 20 | it... | set |
|000050b0| 63 75 72 72 65 6e 74 5f | 70 61 67 65 73 20 5b 69 |current_|pages [i|
|000050c0| 6e 66 6f 20 67 6c 6f 62 | 61 6c 73 20 22 67 73 5f |nfo glob|als "gs_|
|000050d0| 48 45 4c 50 54 45 58 54 | 5f 2a 22 5d 0d 0a 20 20 |HELPTEXT|_*"].. |
|000050e0| 20 20 20 20 66 6f 72 65 | 61 63 68 20 70 61 67 65 | fore|ach page|
|000050f0| 20 24 63 75 72 72 65 6e | 74 5f 70 61 67 65 73 20 | $curren|t_pages |
|00005100| 7b 0d 0a 20 20 20 20 20 | 20 20 20 20 67 6c 6f 62 |{.. | glob|
|00005110| 61 6c 20 24 70 61 67 65 | 0d 0a 20 20 20 20 20 20 |al $page|.. |
|00005120| 20 20 20 75 6e 73 65 74 | 20 24 70 61 67 65 0d 0a | unset| $page..|
|00005130| 20 20 20 20 20 20 7d 0d | 0a 0d 0a 20 20 20 20 20 | }.|... |
|00005140| 20 23 20 42 6c 61 6e 6b | 20 6f 6c 64 20 69 6e 66 | # Blank| old inf|
|00005150| 6f 72 6d 61 74 69 6f 6e | 0d 0a 20 20 20 20 20 20 |ormation|.. |
|00005160| 24 67 74 5f 6d 69 6e 69 | 5f 68 65 6c 70 20 63 6f |$gt_mini|_help co|
|00005170| 6e 66 69 67 75 72 65 20 | 2d 73 74 61 74 65 20 6e |nfigure |-state n|
|00005180| 6f 72 6d 61 6c 0d 0a 20 | 20 20 20 20 20 24 67 74 |ormal.. | $gt|
|00005190| 5f 6d 69 6e 69 5f 68 65 | 6c 70 20 64 65 6c 65 74 |_mini_he|lp delet|
|000051a0| 65 20 31 2e 30 20 65 6e | 64 0d 0a 20 20 20 20 20 |e 1.0 en|d.. |
|000051b0| 20 24 67 74 5f 6d 69 6e | 69 5f 68 65 6c 70 20 63 | $gt_min|i_help c|
|000051c0| 6f 6e 66 69 67 75 72 65 | 20 2d 73 74 61 74 65 20 |onfigure| -state |
|000051d0| 64 69 73 61 62 6c 65 64 | 0d 0a 20 20 20 20 20 20 |disabled|.. |
|000051e0| 2e 6e 61 6d 65 5f 66 72 | 2e 6e 61 6d 65 20 63 6f |.name_fr|.name co|
|000051f0| 6e 66 69 67 75 72 65 20 | 2d 73 74 61 74 65 20 6e |nfigure |-state n|
|00005200| 6f 72 6d 61 6c 0d 0a 20 | 20 20 20 20 20 2e 6e 61 |ormal.. | .na|
|00005210| 6d 65 5f 66 72 2e 6e 61 | 6d 65 20 64 65 6c 65 74 |me_fr.na|me delet|
|00005220| 65 20 30 20 65 6e 64 0d | 0a 20 20 20 20 20 20 2e |e 0 end.|. .|
|00005230| 6e 61 6d 65 5f 66 72 2e | 6e 61 6d 65 20 63 6f 6e |name_fr.|name con|
|00005240| 66 69 67 75 72 65 20 2d | 73 74 61 74 65 20 64 69 |figure -|state di|
|00005250| 73 61 62 6c 65 64 0d 0a | 0d 0a 20 20 20 20 20 20 |sabled..|.. |
|00005260| 23 20 53 6f 75 72 63 65 | 20 74 68 65 20 6e 65 77 |# Source| the new|
|00005270| 20 66 69 6c 65 0d 0a 20 | 20 20 20 20 20 69 66 20 | file.. | if |
|00005280| 5b 63 61 74 63 68 20 7b | 75 70 6c 65 76 65 6c 20 |[catch {|uplevel |
|00005290| 23 30 20 22 73 6f 75 72 | 63 65 20 24 66 69 6c 65 |#0 "sour|ce $file|
|000052a0| 22 7d 5d 20 7b 0d 0a 20 | 20 20 20 20 20 20 20 20 |"}] {.. | |
|000052b0| 23 20 45 72 72 6f 72 20 | 72 65 61 64 69 6e 67 20 |# Error |reading |
|000052c0| 66 69 6c 65 20 2d 20 70 | 72 6f 62 61 62 6c 79 20 |file - p|robably |
|000052d0| 6e 6f 74 20 61 20 68 65 | 6c 70 20 61 72 63 68 69 |not a he|lp archi|
|000052e0| 76 65 0d 0a 20 20 20 20 | 20 20 20 20 20 4d 48 5f |ve.. | MH_|
|000052f0| 49 6e 66 6f 44 69 61 6c | 6f 67 20 2e 20 22 46 69 |InfoDial|og . "Fi|
|00005300| 6c 65 20 64 6f 65 73 20 | 6e 6f 74 20 68 61 76 65 |le does |not have|
|00005310| 20 74 68 65 20 63 6f 72 | 72 65 63 74 20 66 6f 72 | the cor|rect for|
|00005320| 6d 61 74 2e 0d 0a 41 72 | 65 20 79 6f 75 20 73 75 |mat...Ar|e you su|
|00005330| 72 65 20 74 68 61 74 20 | 74 68 69 73 20 69 73 20 |re that |this is |
|00005340| 61 20 76 61 6c 69 64 20 | 68 61 6c 70 20 61 72 63 |a valid |halp arc|
|00005350| 68 69 76 65 3f 22 0d 0a | 20 20 20 20 20 20 20 20 |hive?"..| |
|00005360| 20 73 65 74 20 67 73 5f | 63 75 72 72 65 6e 74 5f | set gs_|current_|
|00005370| 70 72 6f 6a 65 63 74 20 | 22 22 0d 0a 20 20 20 20 |project |"".. |
|00005380| 20 20 20 20 20 72 65 74 | 75 72 6e 0d 0a 20 20 20 | ret|urn.. |
|00005390| 20 20 20 7d 0d 0a 0d 0a | 20 20 20 20 20 20 23 20 | }....| # |
|000053a0| 42 75 69 6c 64 20 75 70 | 20 61 20 6c 69 73 74 20 |Build up| a list |
|000053b0| 6f 66 20 6e 65 77 20 70 | 61 67 65 73 0d 0a 20 20 |of new p|ages.. |
|000053c0| 20 20 20 20 73 65 74 20 | 67 61 73 5f 70 61 67 65 | set |gas_page|
|000053d0| 73 20 5b 69 6e 66 6f 20 | 67 6c 6f 62 61 6c 73 20 |s [info |globals |
|000053e0| 22 67 73 5f 48 45 4c 50 | 54 45 58 54 5f 2a 22 5d |"gs_HELP|TEXT_*"]|
|000053f0| 0d 0a 20 20 20 20 20 20 | 73 65 74 20 67 61 73 5f |.. |set gas_|
|00005400| 68 69 73 74 6f 72 79 20 | 22 22 0d 0a 20 20 20 20 |history |"".. |
|00005410| 20 20 73 65 74 20 67 62 | 5f 63 75 72 72 65 6e 74 | set gb|_current|
|00005420| 5f 70 61 67 65 5f 63 68 | 61 6e 67 65 64 20 30 0d |_page_ch|anged 0.|
|00005430| 0a 20 20 20 20 20 20 73 | 65 74 20 67 62 5f 70 72 |. s|et gb_pr|
|00005440| 6f 6a 65 63 74 5f 63 68 | 61 6e 67 65 64 20 30 0d |oject_ch|anged 0.|
|00005450| 0a 0d 0a 20 20 20 20 20 | 20 23 20 44 69 73 70 6c |... | # Displ|
|00005460| 61 79 20 74 68 65 20 70 | 61 67 65 20 73 65 6c 65 |ay the p|age sele|
|00005470| 63 74 6f 72 0d 0a 20 20 | 20 20 20 20 4d 48 5f 53 |ctor.. | MH_S|
|00005480| 65 6c 65 63 74 48 65 6c | 70 50 61 67 65 20 46 55 |electHel|pPage FU|
|00005490| 4c 4c 0d 0a 0d 0a 20 20 | 20 20 20 20 23 20 53 61 |LL.... | # Sa|
|000054a0| 76 65 20 74 68 65 20 70 | 72 6f 6a 65 63 74 20 6e |ve the p|roject n|
|000054b0| 61 6d 65 0d 0a 20 20 20 | 20 20 20 77 6d 20 74 69 |ame.. | wm ti|
|000054c0| 74 6c 65 20 2e 20 22 45 | 64 69 74 20 48 65 6c 70 |tle . "E|dit Help|
|000054d0| 20 2d 20 24 66 69 6c 65 | 22 0d 0a 0d 0a 20 20 20 | - $file|".... |
|000054e0| 7d 20 65 6c 73 65 20 7b | 0d 0a 20 20 20 20 20 20 |} else {|.. |
|000054f0| 23 20 46 69 6c 65 20 64 | 6f 65 73 20 6e 6f 74 20 |# File d|oes not |
|00005500| 65 78 69 73 74 0d 0a 20 | 20 20 20 20 20 4d 48 5f |exist.. | MH_|
|00005510| 49 6e 66 6f 44 69 61 6c | 6f 67 20 2e 20 22 20 46 |InfoDial|og . " F|
|00005520| 69 6c 65 20 24 66 69 6c | 65 20 64 6f 65 73 20 6e |ile $fil|e does n|
|00005530| 6f 74 20 65 78 69 73 74 | 22 0d 0a 20 20 20 20 20 |ot exist|".. |
|00005540| 20 73 65 74 20 67 73 5f | 63 75 72 72 65 6e 74 5f | set gs_|current_|
|00005550| 70 72 6f 6a 65 63 74 20 | 22 22 0d 0a 20 20 20 7d |project |"".. }|
|00005560| 0d 0a 7d 0d 0a 0d 0a 23 | 23 23 23 23 23 23 23 23 |..}....#|########|
|00005570| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00005580| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00005590| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000055a0| 23 23 23 23 23 23 0d 0a | 23 20 50 72 6f 63 65 64 |######..|# Proced|
|000055b0| 75 72 65 20 74 6f 20 73 | 61 76 65 20 61 20 68 65 |ure to s|ave a he|
|000055c0| 6c 70 20 66 69 6c 65 0d | 0a 70 72 6f 63 20 4d 48 |lp file.|.proc MH|
|000055d0| 5f 53 61 76 65 50 72 6f | 6a 65 63 74 20 7b 20 7b |_SavePro|ject { {|
|000055e0| 6e 61 6d 65 20 22 22 7d | 20 7d 20 7b 0d 0a 0d 0a |name ""}| } {....|
|000055f0| 20 20 20 23 20 47 6c 6f | 62 61 6c 73 0d 0a 20 20 | # Glo|bals.. |
|00005600| 20 67 6c 6f 62 61 6c 20 | 67 61 73 5f 70 61 67 65 | global |gas_page|
|00005610| 73 20 67 62 5f 70 72 6f | 6a 65 63 74 5f 63 68 61 |s gb_pro|ject_cha|
|00005620| 6e 67 65 64 20 67 62 5f | 70 61 67 65 5f 61 75 74 |nged gb_|page_aut|
|00005630| 6f 63 6f 6d 6d 69 74 20 | 5c 0d 0a 20 20 20 20 20 |ocommit |\.. |
|00005640| 20 67 62 5f 63 75 72 72 | 65 6e 74 5f 70 61 67 65 | gb_curr|ent_page|
|00005650| 5f 63 68 61 6e 67 65 64 | 20 67 73 5f 63 75 72 72 |_changed| gs_curr|
|00005660| 65 6e 74 5f 70 72 6f 6a | 65 63 74 0d 0a 0d 0a 20 |ent_proj|ect.... |
|00005670| 20 20 23 20 43 68 65 63 | 6b 20 74 68 65 20 6e 61 | # Chec|k the na|
|00005680| 6d 65 20 66 6f 72 20 73 | 79 6e 74 61 63 74 69 63 |me for s|yntactic|
|00005690| 20 63 6f 72 72 65 63 74 | 6e 65 73 73 0d 0a 20 20 | correct|ness.. |
|000056a0| 20 69 66 20 7b 5b 6c 6c | 65 6e 67 74 68 20 5b 73 | if {[ll|ength [s|
|000056b0| 70 6c 69 74 20 24 6e 61 | 6d 65 5d 5d 20 3e 20 31 |plit $na|me]] > 1|
|000056c0| 20 7c 7c 20 5b 72 65 67 | 65 78 70 20 2d 6e 6f 63 | || [reg|exp -noc|
|000056d0| 61 73 65 20 5c 0d 0a 20 | 20 20 20 20 20 7b 5b 60 |ase \.. | {[`|
|000056e0| 7c 21 24 25 5e 26 2a 28 | 29 7c 7e 3c 3e 2c 5d 2b ||!$%^&*(|)|~<>,]+|
|000056f0| 7d 20 24 6e 61 6d 65 5d | 20 7c 7c 20 24 6e 61 6d |} $name]| || $nam|
|00005700| 65 20 3d 3d 20 22 22 7d | 20 7b 0d 0a 20 20 20 20 |e == ""}| {.. |
|00005710| 20 20 4d 48 5f 49 6e 66 | 6f 44 69 61 6c 6f 67 20 | MH_Inf|oDialog |
|00005720| 2e 20 22 43 68 6f 73 65 | 6e 20 6e 61 6d 65 20 69 |. "Chose|n name i|
|00005730| 73 20 6e 6f 74 20 76 61 | 6c 69 64 2e 0d 0a 54 68 |s not va|lid...Th|
|00005740| 65 20 70 72 6f 6a 65 63 | 74 20 68 61 73 20 6e 6f |e projec|t has no|
|00005750| 74 20 62 65 65 6e 20 73 | 61 76 65 64 2e 22 0d 0a |t been s|aved."..|
|00005760| 20 20 20 20 20 20 72 65 | 74 75 72 6e 0d 0a 20 20 | re|turn.. |
|00005770| 20 7d 0d 0a 0d 0a 20 20 | 20 23 20 49 66 20 70 72 | }.... | # If pr|
|00005780| 6f 6a 65 63 74 20 64 6f | 65 73 20 6e 6f 74 20 68 |oject do|es not h|
|00005790| 61 76 65 20 61 20 6e 61 | 6d 65 20 70 6f 70 0d 0a |ave a na|me pop..|
|000057a0| 20 20 20 23 20 75 70 20 | 74 68 65 20 73 61 76 65 | # up |the save|
|000057b0| 20 70 72 6f 6a 65 63 74 | 20 61 73 20 64 69 61 6c | project| as dial|
|000057c0| 6f 67 2e 0d 0a 20 20 20 | 69 66 20 7b 24 6e 61 6d |og... |if {$nam|
|000057d0| 65 20 3d 3d 20 22 22 7d | 20 7b 0d 0a 20 20 20 20 |e == ""}| {.. |
|000057e0| 20 20 4d 48 5f 53 61 76 | 65 50 72 6f 6a 65 63 74 | MH_Sav|eProject|
|000057f0| 41 73 0d 0a 20 20 20 20 | 20 20 72 65 74 75 72 6e |As.. | return|
|00005800| 0d 0a 20 20 20 7d 0d 0a | 0d 0a 20 20 20 23 20 49 |.. }..|.. # I|
|00005810| 66 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 70 61 |f the cu|rrent pa|
|00005820| 67 65 20 68 61 73 20 62 | 65 65 6e 20 63 68 61 6e |ge has b|een chan|
|00005830| 67 65 64 2c 20 61 73 6b | 20 74 68 65 20 75 73 65 |ged, ask| the use|
|00005840| 72 20 69 66 0d 0a 20 20 | 20 23 20 28 73 29 68 65 |r if.. | # (s)he|
|00005850| 20 77 69 73 68 65 73 20 | 74 6f 20 73 61 76 65 20 | wishes |to save |
|00005860| 74 68 65 20 63 68 61 6e | 67 65 73 20 74 6f 20 74 |the chan|ges to t|
|00005870| 68 65 20 63 75 72 72 65 | 6e 74 20 70 61 67 65 0d |he curre|nt page.|
|00005880| 0a 20 20 20 23 20 62 65 | 66 6f 72 65 20 73 61 76 |. # be|fore sav|
|00005890| 69 6e 67 2e 0d 0a 20 20 | 20 69 66 20 7b 24 67 62 |ing... | if {$gb|
|000058a0| 5f 63 75 72 72 65 6e 74 | 5f 70 61 67 65 5f 63 68 |_current|_page_ch|
|000058b0| 61 6e 67 65 64 20 3d 3d | 20 31 7d 20 7b 0d 0a 20 |anged ==| 1} {.. |
|000058c0| 20 20 20 20 20 69 66 20 | 7b 24 67 62 5f 70 61 67 | if |{$gb_pag|
|000058d0| 65 5f 61 75 74 6f 63 6f | 6d 6d 69 74 20 3d 3d 20 |e_autoco|mmit == |
|000058e0| 31 20 7c 7c 20 5b 4d 48 | 5f 51 75 65 73 74 69 6f |1 || [MH|_Questio|
|000058f0| 6e 44 69 61 6c 6f 67 20 | 2e 20 5c 0d 0a 20 20 20 |nDialog |. \.. |
|00005900| 20 20 20 20 20 20 22 54 | 68 65 20 63 75 72 72 65 | "T|he curre|
|00005910| 6e 74 20 70 61 67 65 20 | 68 61 73 20 63 68 61 6e |nt page |has chan|
|00005920| 67 65 64 2e 20 20 44 6f | 20 79 6f 75 20 77 69 73 |ged. Do| you wis|
|00005930| 68 0d 0a 20 74 6f 20 73 | 61 76 65 20 74 68 65 73 |h.. to s|ave thes|
|00005940| 65 20 63 68 61 6e 67 65 | 73 20 77 69 74 68 20 74 |e change|s with t|
|00005950| 68 65 20 70 72 6f 6a 65 | 63 74 3f 22 20 22 4e 6f |he proje|ct?" "No|
|00005960| 22 20 22 59 65 73 22 5d | 7d 20 7b 0d 0a 20 20 20 |" "Yes"]|} {.. |
|00005970| 20 20 20 20 20 20 4d 48 | 5f 53 61 76 65 48 65 6c | MH|_SaveHel|
|00005980| 70 50 61 67 65 0d 0a 20 | 20 20 20 20 20 7d 0d 0a |pPage.. | }..|
|00005990| 20 20 20 7d 0d 0a 0d 0a | 20 20 20 23 20 4f 70 65 | }....| # Ope|
|000059a0| 6e 20 74 68 65 20 66 69 | 6c 65 0d 0a 20 20 20 69 |n the fi|le.. i|
|000059b0| 66 20 5b 63 61 74 63 68 | 20 7b 73 65 74 20 66 70 |f [catch| {set fp|
|000059c0| 20 5b 6f 70 65 6e 20 24 | 6e 61 6d 65 20 77 5d 7d | [open $|name w]}|
|000059d0| 5d 20 7b 0d 0a 20 20 20 | 20 20 20 4d 48 5f 49 6e |] {.. | MH_In|
|000059e0| 66 6f 44 69 61 6c 6f 67 | 20 2e 20 22 55 6e 61 62 |foDialog| . "Unab|
|000059f0| 6c 65 20 74 6f 20 6f 70 | 65 6e 20 66 69 6c 65 20 |le to op|en file |
|00005a00| 24 6e 61 6d 65 20 66 6f | 72 20 77 72 69 74 69 6e |$name fo|r writin|
|00005a10| 67 22 0d 0a 20 20 20 20 | 20 20 72 65 74 75 72 6e |g".. | return|
|00005a20| 0d 0a 20 20 20 7d 0d 0a | 0d 0a 20 20 20 23 20 57 |.. }..|.. # W|
|00005a30| 72 69 74 65 20 74 68 65 | 20 68 65 61 64 65 72 0d |rite the| header.|
|00005a40| 0a 20 20 20 70 75 74 73 | 20 24 66 70 20 22 23 23 |. puts| $fp "##|
|00005a50| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00005a60| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00005a70| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00005a80| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 0d 0a 23 |########|#####..#|
|00005a90| 0d 0a 23 20 54 48 49 53 | 20 46 49 4c 45 20 57 41 |..# THIS| FILE WA|
|00005aa0| 53 20 50 52 4f 44 55 43 | 45 53 20 55 53 49 4e 47 |S PRODUC|ES USING|
|00005ab0| 20 4d 49 4e 49 20 48 45 | 4c 50 20 56 45 52 53 49 | MINI HE|LP VERSI|
|00005ac0| 4f 4e 20 31 2e 30 0d 0a | 23 0d 0a 23 20 54 68 65 |ON 1.0..|#..# The|
|00005ad0| 20 66 69 6c 65 20 6d 61 | 79 20 62 65 20 65 64 69 | file ma|y be edi|
|00005ae0| 74 65 64 20 62 79 20 68 | 61 6e 64 20 62 75 74 20 |ted by h|and but |
|00005af0| 69 73 20 62 65 73 74 20 | 61 6e 64 20 6d 6f 73 74 |is best |and most|
|00005b00| 20 0d 0a 23 20 65 61 73 | 69 6c 79 20 65 64 69 74 | ..# eas|ily edit|
|00005b10| 69 65 64 20 75 73 69 6e | 67 20 74 68 65 20 6d 69 |ied usin|g the mi|
|00005b20| 6e 69 2d 68 65 6c 70 20 | 65 64 69 74 6f 72 2e 0d |ni-help |editor..|
|00005b30| 0a 23 0d 0a 23 20 54 68 | 65 20 68 65 6c 70 20 74 |.#..# Th|e help t|
|00005b40| 65 78 74 20 75 73 65 73 | 20 61 20 6d 69 6e 6f 72 |ext uses| a minor|
|00005b50| 20 73 75 62 73 65 74 20 | 6f 66 20 74 68 65 20 68 | subset |of the h|
|00005b60| 74 6d 6c 20 63 6f 6d 6d | 61 6e 64 0d 0a 23 20 6c |tml comm|and..# l|
|00005b70| 61 6e 67 75 61 67 65 2e | 20 20 54 68 65 20 66 6f |anguage.| The fo|
|00005b80| 6c 6c 6f 77 69 6e 67 20 | 63 6f 6e 73 74 72 75 63 |llowing |construc|
|00005b90| 74 73 20 61 72 65 20 73 | 75 70 70 6f 72 74 65 64 |ts are s|upported|
|00005ba0| 3a 0d 0a 23 20 0d 0a 23 | 20 3c 54 49 54 4c 45 3e |:..# ..#| <TITLE>|
|00005bb0| 20 54 65 78 74 20 3c 2f | 54 49 54 4c 45 3e 20 2d | Text </|TITLE> -|
|00005bc0| 20 43 65 6e 74 72 65 27 | 73 2c 20 62 6f 6c 64 73 | Centre'|s, bolds|
|00005bd0| 20 61 6e 64 20 75 6e 64 | 65 72 6c 69 6e 65 73 0d | and und|erlines.|
|00005be0| 0a 23 20 3c 58 52 45 46 | 20 67 73 5f 68 65 6c 70 |.# <XREF| gs_help|
|00005bf0| 5f 73 74 72 69 6e 67 5f | 72 65 66 3e 20 54 65 78 |_string_|ref> Tex|
|00005c00| 74 20 3c 2f 58 52 45 46 | 3e 20 2d 20 48 79 70 65 |t </XREF|> - Hype|
|00005c10| 72 6c 69 6e 6b 73 0d 0a | 23 0d 0a 23 20 3c 42 3e |rlinks..|#..# <B>|
|00005c20| 20 54 65 78 74 20 3c 2f | 42 3e 20 2d 20 42 6f 6c | Text </|B> - Bol|
|00005c30| 64 0d 0a 23 20 3c 49 3e | 20 54 65 78 74 20 3c 2f |d..# <I>| Text </|
|00005c40| 49 3e 20 2d 20 49 74 61 | 6c 69 63 0d 0a 23 20 3c |I> - Ita|lic..# <|
|00005c50| 54 54 3e 20 54 65 78 74 | 20 3c 2f 54 54 3e 20 2d |TT> Text| </TT> -|
|00005c60| 20 53 61 6e 73 20 73 65 | 72 69 66 0d 0a 23 20 3c | Sans se|rif..# <|
|00005c70| 55 4c 3e 20 54 65 78 74 | 20 3c 2f 55 4c 3e 20 2d |UL> Text| </UL> -|
|00005c80| 20 55 6e 64 65 72 6c 69 | 6e 65 0d 0a 23 0d 0a 23 | Underli|ne..#..#|
|00005c90| 20 3c 43 45 4e 54 45 52 | 3e 20 54 65 78 74 20 3c | <CENTER|> Text <|
|00005ca0| 2f 43 45 4e 54 45 52 3e | 20 2d 20 43 65 6e 74 72 |/CENTER>| - Centr|
|00005cb0| 65 20 4a 75 73 74 69 66 | 79 0d 0a 23 20 3c 4c 45 |e Justif|y..# <LE|
|00005cc0| 46 54 3e 20 54 65 78 74 | 20 3c 2f 4c 45 46 54 3e |FT> Text| </LEFT>|
|00005cd0| 20 2d 20 4c 65 66 74 20 | 4a 75 73 74 69 66 79 0d | - Left |Justify.|
|00005ce0| 0a 23 20 3c 52 49 47 48 | 54 3e 20 54 65 78 74 20 |.# <RIGH|T> Text |
|00005cf0| 3c 2f 52 49 47 48 54 3e | 20 2d 20 52 69 67 68 74 |</RIGHT>| - Right|
|00005d00| 20 4a 75 73 74 69 66 79 | 0d 0a 23 0d 0a 23 23 23 | Justify|..#..###|
|00005d10| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00005d20| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00005d30| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00005d40| 23 23 23 23 23 23 23 23 | 23 23 23 23 0d 0a 0d 0a |########|####....|
|00005d50| 22 0d 0a 20 20 20 23 20 | 4e 6f 77 20 77 72 69 74 |".. # |Now writ|
|00005d60| 65 20 74 68 65 20 68 65 | 6c 70 20 74 65 78 74 20 |e the he|lp text |
|00005d70| 69 74 73 65 6c 66 0d 0a | 20 20 20 66 6f 72 65 61 |itself..| forea|
|00005d80| 63 68 20 70 61 67 65 20 | 24 67 61 73 5f 70 61 67 |ch page |$gas_pag|
|00005d90| 65 73 20 7b 0d 0a 20 20 | 20 20 20 20 67 6c 6f 62 |es {.. | glob|
|00005da0| 61 6c 20 24 70 61 67 65 | 0d 0a 20 20 20 20 20 20 |al $page|.. |
|00005db0| 73 65 74 20 74 65 78 74 | 20 5b 65 76 61 6c 20 73 |set text| [eval s|
|00005dc0| 75 62 73 74 20 5c 24 24 | 70 61 67 65 5d 0d 0a 20 |ubst \$$|page].. |
|00005dd0| 20 20 20 20 20 70 75 74 | 73 20 24 66 70 20 22 67 | put|s $fp "g|
|00005de0| 6c 6f 62 61 6c 20 24 70 | 61 67 65 0d 0a 73 65 74 |lobal $p|age..set|
|00005df0| 20 24 70 61 67 65 20 5c | 5c 0d 0a 5c 5c 0d 0a 5c | $page \|\..\\..\|
|00005e00| 22 24 74 65 78 74 5c 22 | 0d 0a 22 0d 0a 20 20 20 |"$text\"|..".. |
|00005e10| 7d 0d 0a 0d 0a 20 20 20 | 23 20 46 6c 75 73 68 20 |}.... |# Flush |
|00005e20| 74 68 65 20 66 69 6c 65 | 0d 0a 20 20 20 66 6c 75 |the file|.. flu|
|00005e30| 73 68 20 24 66 70 0d 0a | 20 20 20 63 6c 6f 73 65 |sh $fp..| close|
|00005e40| 20 24 66 70 0d 0a 0d 0a | 20 20 20 23 20 49 6e 66 | $fp....| # Inf|
|00005e50| 6f 72 6d 20 74 68 65 20 | 75 73 65 72 0d 0a 20 20 |orm the |user.. |
|00005e60| 20 4d 48 5f 49 6e 66 6f | 44 69 61 6c 6f 67 20 2e | MH_Info|Dialog .|
|00005e70| 20 22 48 65 6c 70 20 73 | 61 76 65 64 20 74 6f 20 | "Help s|aved to |
|00005e80| 66 69 6c 65 20 24 6e 61 | 6d 65 22 0d 0a 20 20 20 |file $na|me".. |
|00005e90| 73 65 74 20 67 62 5f 70 | 72 6f 6a 65 63 74 5f 63 |set gb_p|roject_c|
|00005ea0| 68 61 6e 67 65 64 20 30 | 0d 0a 20 20 20 73 65 74 |hanged 0|.. set|
|00005eb0| 20 67 73 5f 63 75 72 72 | 65 6e 74 5f 70 72 6f 6a | gs_curr|ent_proj|
|00005ec0| 65 63 74 20 24 6e 61 6d | 65 0d 0a 20 20 20 77 6d |ect $nam|e.. wm|
|00005ed0| 20 74 69 74 6c 65 20 2e | 20 22 45 64 69 74 20 48 | title .| "Edit H|
|00005ee0| 65 6c 70 20 2d 20 24 6e | 61 6d 65 22 0d 0a 7d 0d |elp - $n|ame"..}.|
|00005ef0| 0a 0d 0a 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |...#####|########|
|00005f00| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00005f10| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00005f20| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00005f30| 23 23 0d 0a 23 20 50 72 | 6f 63 65 64 75 72 65 20 |##..# Pr|ocedure |
|00005f40| 74 6f 20 73 61 76 65 20 | 61 20 68 65 6c 70 20 66 |to save |a help f|
|00005f50| 69 6c 65 0d 0a 70 72 6f | 63 20 4d 48 5f 53 61 76 |ile..pro|c MH_Sav|
|00005f60| 65 50 72 6f 6a 65 63 74 | 41 73 20 7b 20 7d 20 7b |eProject|As { } {|
|00005f70| 0d 0a 0d 0a 20 20 20 23 | 20 47 6c 6f 62 61 6c 73 |.... #| Globals|
|00005f80| 0d 0a 20 20 20 67 6c 6f | 62 61 6c 20 52 49 44 47 |.. glo|bal RIDG|
|00005f90| 45 5f 42 4f 52 44 45 52 | 20 44 45 46 41 55 4c 54 |E_BORDER| DEFAULT|
|00005fa0| 5f 50 41 44 44 49 4e 47 | 20 67 73 5f 6e 65 77 5f |_PADDING| gs_new_|
|00005fb0| 70 72 6f 6a 65 63 74 5f | 6e 61 6d 65 20 5c 0d 0a |project_|name \..|
|00005fc0| 20 20 20 20 20 20 54 45 | 58 54 5f 43 4f 4c 4f 55 | TE|XT_COLOU|
|00005fd0| 52 0d 0a 0d 0a 20 20 20 | 23 20 50 72 6f 6d 70 74 |R.... |# Prompt|
|00005fe0| 20 66 6f 72 20 74 68 65 | 20 70 72 6f 6a 65 63 74 | for the| project|
|00005ff0| 20 74 6f 20 73 61 76 65 | 20 61 73 0d 0a 20 20 20 | to save| as.. |
|00006000| 73 65 74 20 67 73 5f 6e | 65 77 5f 70 72 6f 6a 65 |set gs_n|ew_proje|
|00006010| 63 74 5f 6e 61 6d 65 20 | 5b 4d 48 5f 46 69 6c 65 |ct_name |[MH_File|
|00006020| 53 65 6c 65 63 74 20 22 | 53 61 76 65 20 50 72 6f |Select "|Save Pro|
|00006030| 6a 65 63 74 20 41 73 2e | 2e 2e 22 5d 0d 0a 20 20 |ject As.|.."].. |
|00006040| 20 69 66 20 5b 66 69 6c | 65 20 65 78 69 73 74 73 | if [fil|e exists|
|00006050| 20 24 67 73 5f 6e 65 77 | 5f 70 72 6f 6a 65 63 74 | $gs_new|_project|
|00006060| 5f 6e 61 6d 65 5d 20 7b | 0d 0a 20 20 20 20 20 20 |_name] {|.. |
|00006070| 69 66 20 5b 4d 48 5f 51 | 75 65 73 74 69 6f 6e 44 |if [MH_Q|uestionD|
|00006080| 69 61 6c 6f 67 20 2e 20 | 22 41 72 65 20 79 6f 75 |ialog . |"Are you|
|00006090| 20 73 75 72 65 20 79 6f | 75 20 77 69 73 68 20 74 | sure yo|u wish t|
|000060a0| 6f 20 6f 76 65 72 77 72 | 69 74 65 0d 0a 66 69 6c |o overwr|ite..fil|
|000060b0| 65 20 24 67 73 5f 6e 65 | 77 5f 70 72 6f 6a 65 63 |e $gs_ne|w_projec|
|000060c0| 74 5f 6e 61 6d 65 20 3f | 22 20 22 59 65 73 22 20 |t_name ?|" "Yes" |
|000060d0| 22 4e 6f 22 5d 20 7b 0d | 0a 20 20 20 20 20 20 20 |"No"] {.|. |
|000060e0| 20 20 4d 48 5f 49 6e 66 | 6f 44 69 61 6c 6f 67 20 | MH_Inf|oDialog |
|000060f0| 2e 20 22 48 65 6c 70 20 | 6e 6f 74 20 73 61 76 65 |. "Help |not save|
|00006100| 64 22 0d 0a 20 20 20 20 | 20 20 20 20 20 72 65 74 |d".. | ret|
|00006110| 75 72 6e 0d 0a 20 20 20 | 20 20 20 7d 0d 0a 20 20 |urn.. | }.. |
|00006120| 20 7d 0d 0a 0d 0a 20 20 | 20 23 20 43 68 65 63 6b | }.... | # Check|
|00006130| 20 76 61 6c 69 64 69 74 | 79 20 6f 66 20 6e 61 6d | validit|y of nam|
|00006140| 65 0d 0a 20 20 20 69 66 | 20 7b 24 67 73 5f 6e 65 |e.. if| {$gs_ne|
|00006150| 77 5f 70 72 6f 6a 65 63 | 74 5f 6e 61 6d 65 20 21 |w_projec|t_name !|
|00006160| 3d 20 22 22 7d 20 7b 0d | 0a 20 20 20 20 20 20 4d |= ""} {.|. M|
|00006170| 48 5f 53 61 76 65 50 72 | 6f 6a 65 63 74 20 24 67 |H_SavePr|oject $g|
|00006180| 73 5f 6e 65 77 5f 70 72 | 6f 6a 65 63 74 5f 6e 61 |s_new_pr|oject_na|
|00006190| 6d 65 0d 0a 20 20 20 7d | 20 65 6c 73 65 20 7b 0d |me.. }| else {.|
|000061a0| 0a 20 20 20 20 20 20 4d | 48 5f 49 6e 66 6f 44 69 |. M|H_InfoDi|
|000061b0| 61 6c 6f 67 20 2e 20 22 | 59 6f 75 20 6d 75 73 74 |alog . "|You must|
|000061c0| 20 63 68 6f 6f 73 65 20 | 61 20 6e 61 6d 65 20 66 | choose |a name f|
|000061d0| 6f 72 0d 0a 79 6f 75 72 | 20 6e 65 77 20 68 65 6c |or..your| new hel|
|000061e0| 70 20 61 72 63 68 69 76 | 65 21 22 0d 0a 20 20 20 |p archiv|e!".. |
|000061f0| 7d 0d 0a 7d 0d 0a 0d 0a | 23 23 23 23 23 23 23 23 |}..}....|########|
|00006200| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00006210| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00006220| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00006230| 23 23 23 23 23 23 23 0d | 0a 23 20 50 72 6f 63 65 |#######.|.# Proce|
|00006240| 64 75 72 65 20 74 6f 20 | 63 6c 6f 73 65 20 61 20 |dure to |close a |
|00006250| 68 65 6c 70 20 66 69 6c | 65 0d 0a 70 72 6f 63 20 |help fil|e..proc |
|00006260| 4d 48 5f 43 6c 6f 73 65 | 50 72 6f 6a 65 63 74 20 |MH_Close|Project |
|00006270| 7b 20 62 5f 65 78 69 74 | 20 7d 20 7b 0d 0a 0d 0a |{ b_exit| } {....|
|00006280| 20 20 20 23 20 47 6c 6f | 62 61 6c 73 0d 0a 20 20 | # Glo|bals.. |
|00006290| 20 67 6c 6f 62 61 6c 20 | 67 62 5f 63 75 72 72 65 | global |gb_curre|
|000062a0| 6e 74 5f 70 61 67 65 5f | 63 68 61 6e 67 65 64 20 |nt_page_|changed |
|000062b0| 67 62 5f 70 72 6f 6a 65 | 63 74 5f 63 68 61 6e 67 |gb_proje|ct_chang|
|000062c0| 65 64 20 67 61 73 5f 70 | 61 67 65 73 20 5c 0d 0a |ed gas_p|ages \..|
|000062d0| 20 20 20 20 20 20 67 73 | 5f 63 75 72 72 65 6e 74 | gs|_current|
|000062e0| 5f 70 72 6f 6a 65 63 74 | 20 67 73 5f 6e 65 77 5f |_project| gs_new_|
|000062f0| 70 72 6f 6a 65 63 74 5f | 6e 61 6d 65 20 67 73 5f |project_|name gs_|
|00006300| 4d 48 5f 4e 65 77 48 65 | 6c 70 50 61 67 65 20 5c |MH_NewHe|lpPage \|
|00006310| 0d 0a 20 20 20 20 20 20 | 67 74 5f 6d 69 6e 69 5f |.. |gt_mini_|
|00006320| 68 65 6c 70 0d 0a 0d 0a | 20 20 20 23 20 43 68 65 |help....| # Che|
|00006330| 63 6b 20 66 6f 72 20 63 | 68 61 6e 67 65 73 20 74 |ck for c|hanges t|
|00006340| 6f 20 74 68 65 20 70 72 | 6f 6a 65 63 74 0d 0a 20 |o the pr|oject.. |
|00006350| 20 20 69 66 20 7b 24 67 | 62 5f 63 75 72 72 65 6e | if {$g|b_curren|
|00006360| 74 5f 70 61 67 65 5f 63 | 68 61 6e 67 65 64 20 7c |t_page_c|hanged ||
|00006370| 7c 20 24 67 62 5f 70 72 | 6f 6a 65 63 74 5f 63 68 || $gb_pr|oject_ch|
|00006380| 61 6e 67 65 64 7d 20 7b | 0d 0a 20 20 20 20 20 20 |anged} {|.. |
|00006390| 69 66 20 5b 4d 48 5f 51 | 75 65 73 74 69 6f 6e 44 |if [MH_Q|uestionD|
|000063a0| 69 61 6c 6f 67 20 2e 20 | 22 54 68 65 20 70 72 6f |ialog . |"The pro|
|000063b0| 6a 65 63 74 20 68 61 73 | 20 63 68 61 6e 67 65 64 |ject has| changed|
|000063c0| 2e 20 20 44 6f 0d 0a 79 | 6f 75 20 77 69 73 68 20 |. Do..y|ou wish |
|000063d0| 74 6f 20 64 69 73 63 61 | 72 64 20 63 68 61 6e 67 |to disca|rd chang|
|000063e0| 65 73 3f 22 20 22 44 69 | 73 63 61 72 64 22 20 22 |es?" "Di|scard" "|
|000063f0| 43 61 6e 63 65 6c 22 5d | 20 7b 0d 0a 20 20 20 20 |Cancel"]| {.. |
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
